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Guida per l'input dei programmi versioni 
VIC 20 e C64 


Notate che i listati contengono paro¬ 
le' racchiuse tra parentesi graffe { }. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [ ()] deve essere premu¬ 


to contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parente¬ 
si si trova un carattere alfabetico “soli¬ 
tarioquesto dovrà essere premuto 
contemporaneamente al tasto CON¬ 
TROL 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori. 


{CLR ) 
(HOME) 

(Su} " 

{GIU'} 

{SIN} 

{DES} 

{RVS} 
{OFF} 

{BLK} 

{WHT} 
{RED} 


rrm 








fi muli 










rmi 

II 








GZ3 □ 
nei □ 



CIBI 



E 




{CYN} 
{PUR} 
{GRN} 
{BLU} 
{yel} 
[<1>I 
[ < 2 > J 

t< 3 > ] 
[<4>] 
[<5>] 
(<6>1 



QO 
QQ 
□ 0 
30 
30 
30 


k. 

l<7>] 

i 

(<8>) 

□ 

{FI} 

□ 

{F2} 

13 

{F3} 

□ 

{F4 } 

15 

{F5} 


{F6} 


{F7} 

È 

■1 

{F8} 


30 

30 

[/ì 

m 

OQ 

m 

H-! 

□0 
KB 
CZD 



^ ùyJ'J compilare il seguente tagliando: 


Per ricevere gli arretrati di 

K 

J Compilare ed inviare in busta chiusa a: 

♦ SOfl viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome__ 

Cannone__ 

Indirizzo_ 

CAP_ Città_ Prov. 


Desidero ricevere i seguenti numeri arretrati di 






dedicato a. 


Anno 

Anno_ 


a L. 2 000 cad. per un totale di L 


a mezzo 


□ assegno allegato 


□ contanti allegati 


K 









^ Generatore di quiz 

© di G Trepal Trad e adatt di M Anticoli 

18 

Solitario 

di w Forkins trad e adatt di P Maffei 

q Campi di forza (3KRAM) 
w di P Fenley trad e adatt di F Sarcina 

81 

Typlng derby 

di C Esteves trad e adatt di P Maffei 


85 

Scacchi 

di R Woolcock trad e adatt di F Sarcina 


88 

Ventuno 

di G Jones trad e adatt di F Sarcina 

CI6^- plus/4 



«ti A 8arrierc 

■ jt di V Bessel trad e adatt. di S. Albarelli 

^ Catalogatore di nastri (Stampante opzionale) 

1 © di K Gough trad e adatt di F. Sarcina 
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Stop Bus 

Se non l'hai sia fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer. 
Questo programma ti permette, 
una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola "-.rem" seguita da un nume¬ 
ro, detto checksum,- non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop) Bug 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma. 

Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
06 e Plus/4). Per riattivarlo batti: 

SYS PEEK(56)*256 per il VIC 20; 
SYS 16128 per il CI6 e il PLUS/4; 
SYS 40704 per il C 64. 
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STOP BUG per C64 e VIC 90 


100 POKE5 5,0 :POKE5 6,PEEK(56)-1 :R=PEEK(56)*256 :PRINT"{CLR} 
ATTENDERE PREGO..." 

1 1 0 FORI=RTOR+132 : READA :CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK02 2689THENPRINT" {GIU 1 }ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O.":NEW 

2 00 DATAI 73,3 6,3,201 ,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
2 20 DATA32,1 41 ,36,3,169,999,141 ,37,3 

2 30 DATAI 69,0,1 33,25 4,96,32,87,241 , 1 33 
2 40 DATA2 51 ,134,252,132,253,8,201 ,13,240 
2 50 DATAI 7,201 ,32,240,5,24,101 ,254,133 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,255,1 65,21 4,1 41 ,2 51 
280 DATA3,206,251,3,169,0,133,216,169 
2 90 DATAI 9,32,210,255,169,18,32,210,255 
300 DATAI 69,58,32,21 0,255,1 66,254,1 69,0 
310 DATAI 33,254,1 72,33,999,1 92,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,2 55,32,21 0,2 55,1 73 
340 DATA251,3,133,214,76,55,999 


STOP BUG per CI 6 e PLUS/4 

100 POKE55,0:POKE56,63:PRINT"{CLR}ATTENDERE PREGO..." 

1 1 0 FOR1 = 1612 8T016 2 60 :READA:CK=CK + A:POKEI,A:NEXT 

120 IFCK<>14248THENPRINT"{GIU'}ERRORE NELLE ISTRUZIONI DA 
TA":END 

130 SYS16128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201 , 32,208,1 ,96,1 41 
210 DATA33,63,173,35,3,141 ,34,63,1 69 
220 DATA32,1 41 ,34,3,169,63,141 ,35,3 

2 30 DATAI 6 9,0,1 33,6,96,32,232,235,1 33 
2 40 DATA3,1 34,4,1 32,5,8,201 , 1 3,240 

2 50 DATAI 7,201 ,32,240,5,24,101 ,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,1 3,32,21 0,255,1 65,2 05,1 41 , 2 51 
280 DATA3,206,251,3,169,0,133,207,169 

2 90 DATAI 9,32,210,255,1 69,1 8,32,210,255 
300 DATAI 69,58,32,21 0,255,1 66,6,1 69,0 
310 DATAI 33,6,172,33,63,1 92,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 

3 30 DATAI 69,32,32,21 0,255,32,21 0,255,173 
340 DATA251,3,133,205,76,55,63 
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Generatore dì quiz 



Vedendo questo programma, an¬ 
che i più scettici si convinceranno 
che il VIC 20 può essere un buon 
insegnante! 

Dopo che avete dato il RUN, il VIC 
inizia a sottoporvi una serie di quiz 
letterari; se la vostra risposta a un 
quesito è esatta, si passa alla do¬ 
manda successiva, mentre se sba¬ 
gliate il VIC vi mostra la risposta 
corretta. Più avanti vi verrà ripro¬ 
posto lo stesso quiz, e nel caso di 
un vostro ulteriore errore il punteg¬ 
gio finale, il quale non è altro che 
la percentuale delle risposte esatte 
rispetto al totale, risulterà più bas¬ 
so. 

I quiz consistono nell'indicare l'au¬ 
tore di una determinata opera let¬ 
teraria, e sono memorizzati nelle 
istruzioni DA TA situate dalla linea 
1000 in poi. Se desiderate modifi¬ 
care le domande o aggiungerne al¬ 
tre, dovete agire appunto su que¬ 
sta parte del programma. Ogni 
istruzione DA TA dovrà essere co¬ 


struita nel modo seguente: 

xxxx DATA # TITOLO OPERA*AUTORE OPERA 

dove xxxx è il numero di linea. Il 
titolo e l'autore dell'opera devono 
essere più brevi di una riga del VIC 
(22 caratteri). Inoltre fate attenzio¬ 
ne a lasciare nell'ultima linea del 
programma l'istruzione DATA 999, 
che funziona da "tappo"segnalan¬ 
do al computer la fine dei quiz. 
L’unica limitazione alla possibilità 
di aggiugere nuove domande è la 
quantità di memoria disponibile. 
Anche usando il VIC inespanso, 
comunque, sono memorizzabili 
tranquillamente una cinquantina di 
quiz, che chiaramente aumentano 
ulteriormente se si dispone di 
espansioni di memoria. 

I più intraprendenti possono diver¬ 
tirsi a cambiare il genere delle do¬ 
mande, modificando nella linea 
140 il tipo di quesito (ad esempio 
mettendo "dove nacque" al posto 
di "chi scrisse"). 


1 00 

POKE36879,110 

: rem 

1 43 

no 

READA$:IFA$<>"999"THENN=N+1:GOTOl10 

: rem 

1 9 

1 20 

RESTORE:DIMQ$(N),C(N) 

: rem 

237 

1 30 

X=RND(0):V=36878:S2=36875 

: rem 

1 1 6 

1 40 

S$="{WHT}CHI SCRISSE" 

: rem 

1 30 

1 50 

PRINT"{CLR}{ 8 GIU'}{RVS}{PUR}{ 22 SPAZI}" 

: rem 

48 

1 60 

PRINT"{SU}{RVS}{YEL}VIC GENERATORE DI QUIZ" 

: rem 

77 

1 70 

PRINT"{SU}{RVS}{PUR}{ 22 SPAZI}" 

: rem 

1 68 

1 80 

GOSUB510 

: rem 

1 75 

1 90 

FORI=1TON:READQS(I):NEXT 

: rem 

7 

200 

T=0:FORI=1TON:C(I)=2:NEXT 

6 

: rem 

27 







21 0 

PRINT"{CLR}{WHT}{ 9 GIU'jMESCOLO LE DOMANDE 

{RVS}S 


{OFF}/{RVS}N{OFF}" 

: rem 

72 

220 

GETA$:ON-(A$="")GOTO220:IFA$="N"THEN250 

: rem 

1 64 

230 

FORJ=1TON:T$ =Q$ (J) :RN = INT(RND(1)*N)+1 :Q$ (J) 

=Q$(RN) 

:Q$ 


(RN)=T$:NEXT 

: rem 

108 

240 

REM 

: rem 

1 22 

250 

FORJ=1TON:IFC(J)=0ORC(J)=1THEN400 

: rem 

235 

260 

QZ$="":AN$="":FL=0:FORK=lTOLEN(Q$(J)):M$=MID$(Q$(J), K 


,D 

: rem 

1 03 

270 

ON- (M$ = "#")GOTO 310 

: rem 

1 50 

280 

IFM$ = "*"THENFL=1 : GOTO 310 

: rem 

1 23 

290 

IFFL=0THENQZ$=QZ$+M$ 

: rem 

207 

300 

IFFL=1THENAN$=AN$+M$ 

: rem 

1 44 

31 0 

NEXTK 

: rem 

30 

320 

REM 

: rem 

1 21 

330 

PRINT"{CLR}{ 3 GIU'}"+S$:PRINT"{GIU'}{RVS}" 

QZ$"{OFF}" 


+"?{GIU'}":INPUTRS$ 

: rem 

244 

340 

IFRS$ =AN$THEN37 0 

: rem 

168 

350 

PRINT"{ 2 GIU' }{BLK}NO ! { 2 SPAZI}HAI SBAGLIATO. 



{ 3 SPAZI}":GOSUB530 

: rem 

193 

360 

PRINT"{ 2 GIU'}{YEL}LA RISPOSTA E':":PRINT" 

{GIU 1 } 



{RVS}"AN$"{OFF}"+".": GOTO 3 90 

: rem 

53 

370 

GOSUB520:PRINT"{ 3 GIU'}{RVS}{YEL}BRAVO ! { 2 

SPAZI}HAI 


INDOVINATO" 

: rem 

7 

380 

C(J)=1 

: rem 

231 

390 

GOSUB510 

: rem 

1 78 

400 

NEXTJ 

: rem 

29 

41 0 

WA=0 : FORI = 1TON:IFC(I)=-lTHENC(I)=0 

: rem 

29 

420 

IFC (I)=2THENWA=1 :C(I)=-1 

: rem 

88 

430 

NEXTI 

: rem 

31 

440 

IFWA=1THEN250 

: rem 

243 

450 

REM 

: rem 

1 25 

460 

FORI=1TON:T=T+C(I):NEXT:SC=INT(T/N*100+.5) 

: rem 

44 

470 

PRINT"{CLR}{ 2 GIU 1 }{WHT}PUNTEGGIO :"SC"%" 

: rem 

1 7 

480 

PRINT"{GIU'}VUOI RIPROVARE (S/N)?" 

: rem 

219 

490 

GETA$:ON-(A$="")GOTO490:IFA$="N"THENEND 

: rem 

246 

500 

GOTO200 

: rem 

96 

51 0 

FORI=lTO2000:NEXT:RETURN 

: rem 

44 

520 

POKEV/10 :FORI = 110TO241:POKES2,1 :NEXT:POKEV, 

0:RETURN 



: rem 

45 

530 

POKEV,10 :POKES2,135 : FORI = 1TO300:NEXT:POKEV, 

0:RETURN 



: rem 

25 

1 OOC 

) DATA #MOBY DICK*HERMAN MELVILLE 

: rem 

1 43 

1010 DATA #CUORE*EDMONDO DE AMICIS 

: rem 

236 

1020 DATA #PINOCCHIO*CARLO COLLODI 

: rem 

61 

1030 DATA #MARCOVALDO*ITALO CALVINO 

: rem 

152 

1040 DATA #TOM SAWYER*MARK TWAIN 

: rem 

165 


1050 DATA #IL FU MATTIA PASCAL*LUIGI PIRANDELLO : rem 53 
1060 DATA #IL DECAMERONE*GIOVANNI BOCCACCIO : rem 103 

1 070 DATA #ADDIO ALLE ARMI*ERNEST HEMINGWAY : rem 81 
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1080 DATA #L'ODISSEA*OMERO : rem 
1090 DATA IL'ORLANDO FURIOSO*LUDOVICO ARIOSTO : rem 
1100 DATA #1 SEPOLCRI*UGO FOSCOLO :rem 
1110 DATA #LA TEMPESTA*WILLIAM SHAKESPEARE :rem 
1120 DATA #L'ASINO D'ORO*APULEIO :rem 
1130 DATA #IL 5 MAGGIO*ALESSANDRO MANZONI : rem 
1140 DATA IDE BELLO GALLICO*CAIO GIULIO CESARE :rem 
1150 DATA #PAURA DI VOLARE*ERICA JONG : rem 
1160 DATA IDE VULGARI ELOQUENTIA*DANTE ALIGHIERI : rem 
1170 DATA IDE AMICITIA*MARCO TULLIO CICERONE :rem 
1180 DATA IIL CAPITALE*KARL MARX :rem 
1190 DATA ITOTEM E TABU'*SIGMUND FREUD : rem 
1 200 DATA IMADAME BOVARY*GUSTAVE FLAUBERT : rem 
1210 DATA IDOCTOR FAUSTUS*CHRISTOPHER MARLOWE : rem 
1220 DATA ILA PIOGGIA NEL PINETO*GABRIELE D'ANNUNZIO 

: rem 

1 230 DATA ILA METAMORFOSI *FRANZ KAFKA : rem 
1240 DATA II CARMI*CAIO VALERIO CATULLO :rem 
1250 DATA IDON CHISCIOTTE*MIGUEL DE CERVANTES :rem 
1 260 DATA IL'ORIGINE DELL'UOMO*CHARLES DARWIN : rem 
1 270 DATA IIL PRINCIPE*NICCOLO' MACHIAVELLI : rem 
1280 DATA II DIALOGHI SOCRATICI*PLATONE :rem 
1290 DATA IGENTE DI DUBLINO*JAMES JOYCE :rem 
1300 DATA IAULULARIA*TITO MACCIO PLAUTO :rem 
1310 DATA ILO ZIBALDONE*GIACOMO LEOPARDI :rem 
1320 DATA ILA CITTA' DEL SOLE*TOMMASO CAMPANELLA:rem 
1330 DATA ILE MIE PRIGIONI*SILVIO PELLICO :rem 
1340 DATA ISULLA STRADA*JACK KEROUAC :rem 
1350 DATA ILE ODI BARBARE*GIOSUE' CARDUCCI :rem 
1360 DATA IL'ELOGIO DELLA FOLLIA*ERASMO DA ROTTERDAM 

: rem 

1 370 DATA II MALAVOGLIA*GIOVANNI VERGA : rem 
1 380 DATA II TRE MOSCHETTIERI *ALEXANDRE DUMAS : rem 
1390 DATA IMYRICAE*GIOVANNI PASCOLI : rem 
1400 DATA ICUORE DI CANE*MICHAIL BULGAKOV : rem 
1410 DATA IOSSI DI SEPPIA*EUGENIO MONTALE :rem 
1420 DATA IETTORE FIERAMOSCA*MASSIMO D'AZEGLIO : rem 
1430 DATA IED E' SUBITO SERA*SALVATORE QUASIMODO:rem 
1440 DATA ILA DISUBBIDIENZA*ALBERTO MORAVIA :rem 
1450 DATA ICOMMA 22*JOSEPH HELLER :rem 
1460 DATA IIL TAMBURO DI LATTA*GUNTER GRASS : rem 
1470 DATA 11 984*GEORGE ORWELL : rem 
1480 DATA ILA STORIA*ELSA MORANTE : rem 
1490 DATAIFAHRENHEIT 451*RAY BRADBURY : rem 
2000 DATA 999 :rem 


45 
96 
21 1 
85 

130 
1 78 
1 83 
1 43 
1 95 
141 
107 
224 

22 

131 

1 27 
223 
37 
246 
255 
1 09 
1 1 2 
42 
1 40 
1 74 
76 
21 7 
146 
1 89 

1 22 
40 
5 

1 64 
1 60 
21 4 
1 06 
136 
1 46 
1 35 
57 
1 51 
206 
244 
1 35 
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Campì di forca 



3K RAM 


Ti trovi con ia tua astronave ai con¬ 
fini del Tempo, inseguito da una 
flotta di navi aliene che cercano di 
raggiungerti, allo scopo di impa¬ 
dronirsi del segreto del tuo Gene¬ 
ratore Energetico. La tua unica pos¬ 
sibilità di salvezza sta proprio nel 
Generatore: con esso puoi piazza¬ 
re dei campi di forza allo sbocco 
dei tunnel temporali da cui, una al¬ 
la volta, escono le navi nemiche. I 
tunnel sono quattro, orientati ver¬ 
so i quattro punti cardinali; gene¬ 
rando un campo di forza presso 
l’angolo superiore sinistro del¬ 
l'uscita di un tunnel contenente un 


nemico, ne provochi la distruzione 
(in tal caso guadagni 20 punti). Se 
piazzi il campo alTuscita del tunnel 
sbagliato perdi 20 unità di energia. 
Hai otto vite: ne perdi una ogni 
volta che una nave aliena riesce ad 
uscire dai tunnel, oppure se cerchi 
di piazzare un campo in qualsiasi 
posto che non sia l’angolo supe¬ 
riore sinistro dell'uscita di un tun¬ 
nel, oppure infine se resti senza 
energia. Il tuo movimento avviene 
in diagonale, usando i tasti specifi¬ 
cati nelle istruzioni contenute nel 
programma. 


5 REM CAMPI DI FORZA 

: rem 

1 46 

1 0 

GOTO8000 

: rem 

98 

20 

E$="{HOME}{ 21 GIU'}":GOSUB9000:POKE36878,15 :rem 

82 

30 

FF$(1)="*****{GIU'}{ 5 SIN}*****{GIU 
F$(2)="***{GIU'}{ 3 SIN}***{GIU'}{ 3 

' } { 5 SIN}*****" :F 
SIN}***{GIU'} 


{ 3 SIN}***{GIU'}{ 3 SIN}***" 

: rem 

21 2 

40 

G=1 :A=INT(RND(1)*4)+1 :GOTOl00 

: rem 

49 

60 

FORD=1T05:POKE36876,0 

: rem 

1 70 

65 

PRINTLEFT$(E$,Y)SPC(X)"{ 2 SPAZI}"; 

: rem 

1 48 

67 

GETM$:IFM$="P"THENY=Y-1:X=X+1 

: rem 

200 

68 

IFM$="I"THENY=Y-1:X=X-1 

: rem 

57 

69 

IFM$="Q"THENX=X-1:Y=Y+1 

: rem 

64 

70 

IFM$ = "E"THENX=X+1 :Y=Y+1 

: rem 

42 

75 

IFY<=4THENY=4 

: rem 

250 

80 

IFY>=22THENY=21 

: rem 

87 

85 

IFX=-1THENX=22 

: rem 

23 

87 

IFX=22THENX=0 

: rem 

235 

88 

IFYOYl THENX9 = PEEK (7680+X+22* (Y-l ) ) : 

X8=PEEK(7681+X+22* 


(Y-l ) ) 

: rem 

1 27 

89 

IFYOYl THENX7 = PEEK (38400+X+22* (Y-l ) ) 

:X6=PEEK(38401+X+2 


2*(Y-l ) ) 

: rem 

208 

90 

PRINTLEFT$(E$,Y)SPC(X)"{CYN})({RED}" 

; : rem 

1 58 
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92 IFYOY1 THENPOKE7680+X1 + 22* ( Yl - 1 ) ,Y9sPOKE7681+X1+22*(Yl 


- 

1),Y8:Y9=X9:Y8=X8 

: rem 

1 94 

93 IFYOYl THENPOKE38400+Xl + 22* ( Yl -1 ) , Y7 : POKE38401 +X1 +22* ( 

Yl -1 ) ,Y6:Y7=X7:Y6=X6:Xl=X:Yl=Y 

: rem 

1 89 

94 POKE36876,240-Y*3 

: rem 

79 

95 IFM$=" "THENIFGTHENGOSUBl000 

: rem 

1 00 

97 NEXTD:RETURN 

: rem 

1 3 

1 00 

POKEl98,0 s 0 = S sFORF = 0TO3 

: rem 

1 29 

1 05 

Y2=l3+2*F*(A=3)-2*F*(A=4):X2=10+2*F*((A=l)- 

(A=2) ) 




: rem 

1 43 

1 07 

GOSUB60 

: rem 

1 26 

1 1 0 

PRINTLEFT$(E$,Y2)SPC(X2)"{CYN}";A$(F+l)SPRINT"{RED}" 



: rem 

61 

1 1 5 

GOSUB60 

: rem 

125 

1 30 

PRINTLEFT$(E$,Y2)SPC(X2)"{YEL}"A$(F+l)SPRINT"{RED}" 



: rem 

3 

1 50 

GOSUB60 

: rem 

1 24 

1 60 

NEXT 

: rem 

21 4 

1 65 

IFFF< >ATHENLI=LI-1 sG0SUB250sIFLI< = 0THEN7000 

: rem 

1 80 

1 70 

GOSU B 9 0 0 0 s GOTO 4 0 

: rem 

1 84 

250 

FOREE=lT03 sF0RT = 2 55T0235STEP-lsPOKE36874,Ts 

POKE36875, 


T-l0 SPOKE368 74 ,T-20sNEXTsNEXT 

: rem 

96 

260 

POKE36876,0 s POKE36875,0 s POKE36874,0 s RETURN 

: rem 

238 

1000 

reno 

REM 

: rem 

1 65 

G = 0sFF = 0sDR = 0sIF(X = 6)AND(Y=5)THENFF=3 sDR=l 

: rem 

35 

1 020 

IF(X=6)AND(Y=17)THENFF = 4 sDR=1 

: rem 

250 

1 030 

IF(X=l)AND(Y=l0)THENFF=1sDR=2 

: rem 

237 

1 040 

IF(X=l3)AND(Y=l0)THENFF=2sDR=2 

: rem 

34 

1 050 

IFFF< >AORDR=0THENP=P+20*(P>0) sP = P-l00*(P< = 

0):LI= 

LI+ ( 


P< = 0) sGOSUB9120 sGOTOl110 

: rem 

45 

1 060 

SC=SC+20 

: rem 

1 89 

ino 

PRINTLEFT$(E$,Y+1)SPC(X+2)"{WHT}"FF$(DR) 

: rem 

6 

1 1 20 

FORT=180T0230 s POKE36876,T s POKE36875,T+20 s NEXTs POKE36 


876,0 s POKE36875,0 

: rem 

1 65 


1130 IFFF = ATHENFOREE=1T05:F0RT=2 0 0TO2 5 5 :POKE368 7 6,T:NEXT: 



NEXT 

: rem 

1 76 

1 1 40 

RETURN 

: rem 

1 66 

7000 

PRINT"{CLR}{CYN}"SPC(202)"PUNTEGGIO 5"SC 

: rem 

91 

701 0 

PRINT" {PUR} { 2 GIU'H 6 DES } FINE GIOCO" sLI 

= 8 :SC = 

0 : P= 


100 s FORT=1T02000 s NEXT s GOTO9850 

: rem 

123 

8000 

POKE56, 28 s POKE52, 28 s POKE57,0 s POKE53, 0 sCLRs 

FORT=0TO51 


1SPOKE7168+T,PEEK(32768+T)sNEXT 

: rem 

85 

8005 

POKE36869,255 s POKE36879,8 s POKE650,1 28 

: rem 

125 

8010 

FORT=0TO87 s READAs POKE71 68 + 33*8 + T,AsNEXT 

s rem 

177 

8020 

DATA40,84,186,124,186,84,40,0 

: rem 

1 89 

8030 

DATA0,16,40,84,40,16,0,0 

: rem 

1 71 

8040 

DATA0,0,0,24,24,0,0,0 

: rem 

6 

8050 

DATA0,0,0,16,0,0,0,0 

: rem 

21 0 

8060 

DATA255,!95,189,189,189,189,195,255 

: rem 

26 

8070 

DATA0,62,54,42,54,62,0,0 

: rem 

1 81 


10 



8080 
8090 
81 00 
8110 
81 1 5 
8250 

8400 

9000 

9081 

9082 

9083 

9084 

9085 

9088 

9089 

9090 

9091 

9092 


D ATAO,0,28,28,28,0,0,0 

DATA96,240,249,239,249,240,96,0 

DATA6,15,159,247,159,15,6,0 

DATA218,33,76,195,24,101,147,100 

DATA255,255,255,255,255,255,255,255 

X=1:Y=2:A$(1)="$":A$(2)= "#":A$(3)=CHR$( 

S=0:LI=8:P=100:GOT09800 

REM 

PRINT"{RED}{CLR}{ 5 GIU'}{RVS}{ 8 SPAZI 

PRINT"{RVS}{ 8 SPAZI}[< 5 +>]" 

PRINT"{RVS}{ 8 SPAZI}[< 5 +>]" 

PRINT"{RVS}{ 8 SPAZI}M{ 3 SPAZI}N" 
PRINT"{RVS}{ 9 SPAZI}M N" 

PRINT"{RVS}{ 3 SPAZI}T< 3 +>]M{ 2 SPAZI 
{ 2 SPAZI}N[< 3 +>}" 

PRINT”{RVST{ 3 SPAZI}[< 3 +>] M[<@>]@ L 
[< 3 +>]" 

PRINT"{RVS}{ 3 SPAZI}[< 3 +>]{ 9 SPAZI} 


} [< 


: rem 

76 

: rem 

53 

: rem 

90 

: rem 

74 

: rem 

253 

A$(4) 

_ 1» | I» 
• 

: rem 

2 

: rem 

108 

: rem 

1 73 

5 +>] 

II 

: rem 

247 

: rem 

244 

2 rem 

245 

2 rem 

83 

2 rem 

84 


}[<M>] [<G>] 

:rem 135 

[<@>]N 

:rem 10 
[< 3 +>]" 


: rem 

PRINT"{RVS}{ 3 SPAZI}[< 3 +>] N[<T>]P O[<T>]M 
[< 3 +>]" : rem 


1 53 


} [<M>] [<G> ] 


9095 

{ 2 SPAZI}M[< 3 +>]" 

PRINT"{RVST{ 9 SPAZI}N M" 


2 rem 

2 rem 

1 30 
85 

9096 

PRINT"{RVS}{ 8 SPAZI}N{ 3 

SPAZI}M" 

2 rem 

86 

9097 

PRINT"{RVS}{ 8 SPAZI}[< 5 

+>] " 

2 rem 

250 

9098 

PRINT"{RVS}{ 8 SPAZI}[< 5 

+>] " 

2 rem 

251 

91 00 

PRINT"{RVS}{ 8 SPAZI}[< 5 

+ >] " 

2 rem 

235 

91 10 

PRINT"{HOME}{GRN}PUNTI{ 3 

SPAZI}CARB.{ 

4 SPAZI}VITE" 


• 

t 

« 

2 rem 

22 


91 20 


9800 


981 0 


PRINT"{HOME}{GIU'}{WHT}"TAB(1)SC"{SIN}{ 3 SPAZl}"TAB 
(8)P"{SIN}{ 2 SPAZI}"TAB(17)LI"{SIN}{ 2 SPAZl}";:RET 
URN :rem 130 

PRINT"{CLR}{YEL}{GIU'}{ 4 SPAZI}CAMPI DI FORZA" 

:rem 93 

PRINT"{GIU'}{CYN} PIAZZA UN CAMPO SUL{ 2 SPAZI}VERTI 
CE IN ALTO A SI-" :rem 12 


9815 PRINT"NISTRA AL TERMINE DEL TUBO CONTENENTE UN NE-MI 
CO." : rem 213 

9820 PRINT"{WHT} PERDI UNA VITA SE IL NEMICO SCAPPA." 

: rem 3 

9830 PRINT"{GRN} PERDI CARBURANTE SE{ 2 SPAZI}PIAZZI MALE 

UN CAMPO." : rem 237 

9840 PRINT"{GIU'}{YEL} USA I SEGUENTI TASTI:{GIU'} 

{ 3 SPAZI}l{ 3 SPAZI}= NORD-OVEST":PRINT"{ 3 SPAZI} 
P{ 3 SPAZI}= NORD-EST" :rem 22 


11 


9845 PRINT"{ 3 SPAZI}E{ 3 SPAZI}= SUD-EST":PRINT" 

{ 3 SPAZI}Q{ 3 SPAZI}= SUD-OVEST":PRINT" BARRA = CAM 

PO" :rem 149 

9850 PRINT"{GIU'}{RED}{ 4 SPAZI}PREMI UN TASTO":POKEl98,0 

:rem 230 

9860 GETQQS:IFQQ$=""THEN9860 :rem 147 

9870 GOTO20 :rem 115 



Barriere 


Questo è un gioco di destrezza e 
di abilità; in esso dovrete guidare 
una macchinina, simboleggiata da 
un tondino, in un labirinto com¬ 
plesso e intricato. 

Per fare ciò è necessario premere i 
seguenti tasti: 

I . Per andare a sinistra 

P . Per andare a destra 

Q . Per andare in su 

Z . Per andare in giù. 

Fino ad ora il gioco sembra sempli¬ 
ce, ma in realtà è molto più com¬ 
plesso, poiché tra una strada e l’al¬ 


tra compaiono e scompaiono ca¬ 
sualmente delle barriere, che impe¬ 
discono il passaggio. 

Più tempo passate senza scontrar¬ 
vi contro i muri e le barriere, più 
aumenta il punteggio. 

Con i punti, però, aumenta anche 
la quantità di barriere che compa¬ 
iono e la frequenza con cui si for¬ 
mano. 

Per ottenere il miglior punteggio 
possibile si hanno a disposizione 
tre macchinine, distrutte le quali il 
gioco termina. 


20 

DZ$ = "{HOME}":FORI = lTOl2 :DZ$=DZ$ + "{GIU'}": 

NEXT:WW=0 




: rem 

223 

30 

FORI=lT021:DZ$=DZ$+"{DES}":NEXT 

: rem 

7 

40 

COLOR4,7,6:COLORO,2,7:COLORI,6,2:GOSUB740 

: VOL8 




: rem 

232 

50 

DIMC1(25),Dl(25),Rl(25) 

: rem 

43 

60 

FORI=1TOl8 :READCl (I) ,Rl (I) ,Dl (I) :NEXT 

: rem 

1 1 3 

70 

OA=0:PRINT"{CLR}";:GOSUB430:IFWW=3THEN940 

: rem 

65 

80 

COLOR4,7,5 :COLORO,2,7 :COLORI,6,2:SC=3072: 

CO=2048 :C : 

= 2 : R 


= 2:D=2:E=0:GOSUB3 7 0 

: rem 

247 

90 

PRINT"{HOME}":POKEPO,81 :POKECC,6 

: rem 

59 

100 A=PEEK(198):IFA=64THENA=AA:GOSUB380 

: rem 

92 

110 IFA=62THENGOSUBl80:D=1:AA=A:GOTOl50 

: rem 

126 


12 










1 20 

IFA=12THENGOSUB200:D=2:AA=A:GOTO!50 


: rem 

1 1 6 

1 30 

IFA=33THENGOSUB220:D=4:AA=A:GOTOl50 


: rem 

1 24 

1 40 

IFA= 41THENGOSUB24 0 :D=8:AA=A:GOTOl50 


: rem 

1 30 

1 45 

A=AA:GOTOl10 


: rem 

1 59 

1 50 

FL=INT(RND(1)*3):IFFL=1THENGOSUB260:IFE= 

1THENGOSUB3 50 


:GOTO70 


: rem 

1 7 

160 

IFE=1THENGOSUB3 50 : GOTO70 


: rem 

250 

1 70 

SL=SL+.25:PRINTDZ$;"{RVS}{BLK}";INT(SL); 

"{OFF}"; : 

GOTO 


1 00 


: rem 

227 

1 80 

POKEPO,32:POKECC,2 :R=R-1:GOSUB370:IFPEEK(PO) 

>=128THEN 


E=1 : RETURN 


: rem 

2 

1 90 

POKECC,6 :POKEPO,81:RETURN 


: rem 

1 04 

200 

POKEPO,32 :POKECC,2 :R=R+1:GOSUB370:IFPEEK(PO) 

>=128THEN 


E=1 : RETURN 


: rem 

249 

210 

POKECC,6 :POKEPO,81:RETURN 


: rem 

97 

220 

POKEPO,32:POKECC,2:C=C-1:GOSUB370:IFPEEK(PO) 

>=!28THEN 


E=1 : RETURN 


: rem 

223 

230 

POKECC,6:POKEPO,81 : RETURN 


: rem 

99 

240 

POKEPO,32:POKECC,2:C=C+l:GOSUB370:IFPEEK(PO) 

>=128THEN 


E=1 : RETURN 


: rem 

223 

250 

POKECC,6 :POKEPO,81:RETURN 


: rem 

1 01 

260 

IFOA=1 GOTO 320 


: rem 

243 

270 

QL=INT(RND(1)*21) 


: rem 

1 62 

280 

Ri=Rl (QL) :C1=C1 (QL) :Dl=Dl (QL) 


: rem 

103 

290 

ONDIGOTO300,31 0 : RETURN 


: rem 

83 

300 

Ri=Rl+1 :PT=3072+(Ri*40)+C1 :FORJ=PTTOPT+80STEP40:POKEJ 


,160:NEXT:OA=1 : RETURN 


: rem 

76 

310 

CI=C1+1 :PT=3072+(Ri*40)+C1:FORJ = PTTOPT+2 

:POKEJ,160:NE 


XT:OA=l : RETURN 


: rem 

89 

320 

ONDIGOTO330,340:RETURN 


: rem 

83 

330 

FORJ = PTTOPT+80STEP40:POKEJ,32 :NEXT:OA=0 : 

RETURN 





: rem 

48 

340 

FORJ=PTTOPT+2 :POKEJ,32:NEXT:OA= 0 : RETURN 


: rem 

91 

350 

FORI = 1TO16 :FORJ=1 TOSO :NEXT:COLOR4,1,5:SOUND1 

,17,8 

: SOU 


ND2,8,4:COLORO,2,8-(1/2) 


: rem 

21 3 

355 

NEXT:WW=WW+1 :PRINT"{CLR}" 


: rem 

1 69 

356 

FORI = 1TO15 :FORJ =1TO50 :NEXT:COLOR4,16-1,5 

: SOUND!,17,8: 


SOUND2,8,4:COLORO,2,1/2:NEXT 


: rem 

49 

360 

COLOR4,15,6:RETURN 


: rem 

90 

370 

PO=3072+(R*40)+C:CC = 2048+(R*40)+C : RETURN 


: rem 

1 87 

380 

IFD = 1THENA=6 2 : RETURN 


: rem 

1 1 

390 

IFD=2THENA=12 : RETURN 


: rem 

8 

400 

IFD = 4THENA=33: RETURN 


: rem 

5 

410 

IFD = 8THENA=41 : RETURN 


: rem 

9 

420 

RETURN 


: rem 

1 1 8 

430 

REM 


: rem 

1 23 

440 

PRINT"{CLR}{BLK}"; 


: rem 

1 99 

450 

PRINT"{RVS}{ 40 SPAZI}{OFF}" ; 


: rem 

73 


460 PRINT"{RVS}{BLK} {OFF}{ 37 SPAZI}{RVS}{ 2 SPAZI}{OFF} 

: rem 126 


13 



470 PRINT"{RVS}{BLK} {OFF}{ 37 SPAZI}{RVS}{BLK} 

{ 2 SPAZI}{OFF}"; : rem 15 

480 PRINT"{RVS}{BLK} {OFF}{ 37 SPAZl}{RVS}{ 2 SPAZl}{OFF} 
"; :rem 128 

490 PRINT"{RVS}{BLK} {OFF}{ 3 SPAZI}{RVS}{BLK} 

{ 14 SPAZI}{OFF}{ 3 SPAZI}{RVS}{BLK}{ 14 SPAZl}{OFF} 

{ 3 SPAZI}{RVS}{BLK}{ 2 SPAZI}{OFF}"; :rem 121 

500 PRINT"{RVS}{BLK} {OFF}{ 3 SPAZI}{RVS} {OFF} 

{ 29 SPAZI}{RVS} {OFF}{ 3 SPAZl}{RVS}{ 2 SPAZl}{OFF}" 
; :rem 193 

510 PRINT"{RVS}{BLK} {OFF}{ 3 SPAZI}{RVS}{BLK} {OFF} 

{ 29 SPAZI}{RVS}{BLK} {OFF}{ 3 SPAZI}{RVS}{BLK} 

{ 2 SPAZI}{OFF}"; : rem 114 

520 PRINT"{RVS}{BLK} {OFF}{ 3 SPAZI}{RVS} {OFF} 

{ 29 SPAZI}{RVS} {OFF}{ 3 SPAZI}{RVS}{ 2 SPAZI}{OFF}" 
; :rem 195 

530 PRINT"{RVS}{BLK} {OFF} [<2>] { 2 SPAZI}{RVS}{BLK} 

{OFF} [<2>]{ 2 SPAZI}{RVS}{BLK}{ 10 SPAZl}{OFF} 

{ 3 SPAZI}{RVS}{ 10 SPAZI}{OFF} [<2>]{ 2 SPAZI}{RVS} 
{BLK} {OFF} [<2>]{ 2 SPAZI}{RVS}{BLK}{ 2 SPAZI}{OFF}" 
; :rem 160 

540 PRINT"{RVS}{BLK} {OFF}{ 3 SPAZI}{RVS} {OFF} 

{ 3 SPAZI}{RVS} {OFF}{ 21 SPAZI}{RVS} {OFF} 

{ 3 SPAZI}{RVS} {OFF}{ 3 SPAZI}{RVS}{ 2 SPAZI}{OFF}"; 

:rem 13 

550 PRINT"{RVS}{BLK} {OFF} [<2>]{ 2 SPAZI}{RVS}{BLK} 

{OFF} [<2>]{ 2 SPAZI}{RVS}{BLK} {OFF} [<2>] 

{ 20 SPAZI}{RVS}{BLK} {OFF} [<2>]{ 2 SPAZI}{RVS}{BLK} 
{OFF} [<2>]{ 2 SPAZI}{RVS}{BLK}{ 2 SPAZI}{OFF}"; 

:rem 199 

560 PRINT"{RVS}{BLK} {OFF}{ 37 SPAZI}{RVS}{ 2 SPAZI}{OFF} 
" ; : r em 1 2 7 

570 PRINT"{RVS}{BLK} {OFF} [<2>]{ 10 SPAZI}{RVS}{BLK} 

{ 3 SPAZI}PUNTI:{ 6 SPAZl}{OFF} [<2>] { 10 SPAZl}{RVS} 
{BLK}{ 2 SPAZI}{OFF}"; :rem 56 

580 PRINT"{RVS}{BLK} {OFF}{ 37 SPAZI}{RVS}{ 2 SPAZI}{OFF} 
"; :rem 129 

590 PRINT"{RVS}{BLK} {OFF} [<2>]{ 2 SPAZI}{RVS}{BLK} 

{OFF} [<2>] { 2 SPAZI}{RVS}{BLK} {OFF} [<2>] 

{ 20 SPAZI}{RVS}{BLK} {OFF} [<2>]{ 2 SPAZI}{RVS}{BLK} 
{OFF} [<2>] { 2 SPAZI}{RVS}{BLK}{ 2 SPAZI}{OFF}"; 

:rem 203 

600 PRINT"{RVS}{BLK} {OFF}{ 3 SPAZI}{RVS} {OFF} 

{ 3 SPAZI}{RVS} {OFF}{ 21 SPAZI}{RVS} {OFF} 

{ 3 SPAZI}{RVS} {OFF}{ 3 SPAZI}{RVS}{ 2 SPAZI}{OFF}"; 

:rem 10 


610 PRINT"{RVS}{BLK} {OFF} [<2>]{ 2 SPAZI}{RVS}{BLK} 
{OFF} [<2>] { 2 SPAZI}{RVS}{BLK}{ 10 SPAZl}{OFF} 

{ 3 SPAZI} {RVS} { 10 SPAZlHOFF} [<2>] { 2 SPAZl}{RVS} 


14 



{BLK} {OFF} [<2>] { 2 SPAZI}{RVS}{BLK}{ 2 SPAZI}{OFF}" 
? :rem 159 

620 PRINT"{RVS}{BLK} {OFF}{ 3 SPAZI}{RVS} {OFF} 

{ 29 SPAZI}{RVS} {OFF}{ 3 SPAZl}{RVS}{ 2 SPAZl}{OFF}" 
» :rem 196 

630 PRINT"{RVS}{BLK} {OFF} [<2>]{ 2 SPAZI}{RVS}{BLK} 

{OFF} [<2>]{ 28 SPAZI}{RVS}{BLK} {OFF} [<2>] 

{ 2 SPAZI}{RVS}{BLK}{ 2 SPAZI}{OFF}"; :rem 52 

640 PRINT"{RVS}{BLK} {OFF}{ 3 SPAZI}{RVS} {OFF} 

{ 29 SPAZI}{RVS} {OFF}{ 3 SPAZI}{RVS}{ 2 SPAZI}{OFF}" 

; :rem 198 

650 PRINT"{RVS}{BLK} {OFF} [<2>]{ 2 SPAZI}{RVS}{BLK} 

{ 14 SPAZI}{0FF}{ 3 SPAZI}{RVS}{ 14 SPAZl}{OFF} [<2>] 


{ 2 SPAZI}{RVS}{BLK}{ 2 SPAZI}{OFF}"; : rem 17 

660 PRINT"{RVS}{BLK} {OFF}{ 37 SPAZI}{RVS}{ 2 SPAZI}{OFF} 

w • • «-1 o o 



M • 

9 

: rem 

1 28 

670 

PRINT"{RVS}{BLK} {OFF} [<2>]{ 36 SPAZI}{RVS}{BLK} 



{ 2 SPAZI}{OFF}"; 

: rem 

166 

680 

PRINT"{RVS}{BLK} {OFF}{ 37 SPAZI}{RVS}{ 2 

SPAZI}{OFF} 


Il • 
t 

: rem 

1 30 

690 

PRINT"{RVS}{BLK} { 39 SPAZI}{HOME} " ; 

: rem 

96 

700 

PRINT"{HOME}" 

: rem 

1 23 

710 

POKE4071 ,160 :C=0:R=0 

: rem 

57 

720 

GETA$:IFA$=""THEN720 

: rem 

85 

730 

RETURN 

: rem 

1 22 

740 

PRINT"{CLR}{ 12 GIU'}"; 

: rem 

6 

750 

PRINT" { 7 DES } VUOI LE ISTRUZIONI (S/N) ?" ; 

: rem 

199 

760 

GETA$ : IFA$=""THEN760 

: rem 

93 

770 

IFA$ = "N"THENRETURN 

: rem 

112 

780 

IFA$ < >" S " THENGOTO 760 

: rem 

1 69 

790 

PRINT"{CLR}":PRINT" { 16 SPAZI } {RVS } BARRIERE{OFF }" 




: rem 

255 

800 

PRINT:PRINT:PRINT 

: rem 

1 79 

810 

PRINT” { 7 SPAZI}GUIDA L'AUTO NEL LABIRINTO 

” :rem 

3 

820 

PRINT" { 4 SPAZI}PER PIU' TEMPO{ 2 SPAZI } POSSIBILE 

USA 


NDO" 

:rem 

96 

830 

PRINT"{ 16 SPAZI}I TASTI:" 

:rem 

1 1 6 

840 

PRINT:PRINT"{ 16 SPAZI}I - SIN. " 

: rem 

1 94 

850 

PRINT"{ 16 SPAZI}P - DES." 

: rem 

245 

860 

PRINT"{ 16 SPAZI}Q -{ 2 SPAZI}SU" 

: rem 

1 49 

870 

PRINT"{ 16 SPAZI}Z - GIU'" 

: rem 

3 

880 

PRINT:PRINT:PRINT" { 10 SPAZI}** PREMI UN TASTO **" 



: rem 

82 

890 

GETA$ : IFA$=""THEN890 

: rem 

1 01 

900 

RETURN 

: rem 

1 21 

91 0 

DATAI 6,0,1,21,0,1,0,10,2,0,14,2,34,14,2,34 

,10,2,17,20 


,1,21 ,20,1 

: rem 

167 

920 

DATA4,10,2,4,14,2,17,16,1 , 21 , 16 , 1 , 30 , 14 , 2 , 

30,10,2, 

17, 


4,1 ,21,4,1,17,8,1 

: rem 

1 6 

930 

DATA21 ,8,1,17,13,1,21,13,1 

: rem 

215 


15 



940 PRINT"{HOME}{ 12 GIU'}{ 13 DES}{RVS}{BLK} FINE 

{ 2 SPAZI}GIOCO":FORI=1T02000:NEXT :rem 177 

950 CLR:GOTO20 :rem 84 



— 


~ 




CI6-- plus/4 


Catalogatore dì nastri 




Stampante opzionale 


Se usdte il registratore per salvare 
i vostri programmi vi sarete resi 
conto di come le cassette si molti¬ 
plichino velocemente, e divenga 
presto molto difficile ricordare su 
quale nastro si trovi un certo pro¬ 
gramma. Questo Catalogatore vi 
aiuterà ad organizzare razional¬ 
mente la vostra nastroteca, compi¬ 
lando l’elenco dei programmi pre¬ 
senti su ogni cassetta, completo 
della loro posizione sul nastro (da¬ 
ta dalla lettura del contatore sul re¬ 
gistratore) e della loro occupazio¬ 
ne di memoria (cioè la loro lun¬ 
ghezza espressa in bytes). Premet¬ 
tiamo però che, se volete che il Ca¬ 
talogatore sia veramente efficace, 
i vostri programmi devonp essere 
registrati sulla cassetta uno di se¬ 
guito all’altro, senza spazi vuoti. 
Ciò si ottiene facilmente con la se¬ 
guente procedura, che la maggior 
parte di voi conoscerà di certo: 
ogni vosta che si deve salvare un 
nuovo programma, si posiziona 
correttamente il nastro effettuando 
la verifica dell'ultimo programma 
registrato sulla cassetta. 
Inizialmente il Catalogatore vi chie¬ 
de se desiderate la stampa del 


l’elenco dei programmi; infatti, se 
possedete una stampante Commo¬ 
dore o compatibile, l’elenco può 
venire automaticamente stampato 
su carta oltre che visualizzato sullo 
schermo. In caso positivo vi viene 
ricordato di accendere la stampan¬ 
te, dopo di che dovrete impostare 
il nome della cassetta, il lato (1 op¬ 
pure 2) e la data della catalogazio¬ 
ne; infine il programma vi chiede 
di ri avvolgere il nastro e di azzera¬ 
re il contatore. A questo punto ini¬ 
zia l'esplorazione della cassetta, 
che avviene verificando tramite 
una routine in linguaggio macchina 
i programmi che vengono via via 
incontrati, ed ogni volta vi viene 
chiesta la lettura del contatore sul 
registratore; in questa fase viene 
compilato (ed eventualmente 
stampato) l'elenco. 

Se sapete già dove finisce l’ultimo 
programma, impostate il carattere 
al posto del numero del conta¬ 
tore quando il registratore si ferme¬ 
rà in quel punto. Altrimenti, quan¬ 
do sarete giunti in una zona del 
nastro in cui siete sicuri che non ci 
siano più programmi, tenete pre¬ 
muto il tasto RUN/STOP finché non 
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appare un messaggio di BREAK) di¬ 
gitate quindi GOTO700 e premete 
RETURN. In entrambi i casi, comun¬ 
que, sullo schermo compare la do¬ 
manda ELENCO (S/N/C)?: pre¬ 
mendo S viene mostrato sul video 
l’elenco che, se non possedete una 


stampante, dovrete trascrivere su 
un foglio di carta,- premendo C en¬ 
tra in funzione, la stampante, for¬ 
nendovi una ulteriore copia del¬ 
l’elenco,- premendo N infine il pro¬ 
gramma termina. 


10 FORI = 1 0 2 7TOl 04 5 : READA :POKEI,A:CK=CK+A:NEXT :rem 51 

11 IFCK02384THENPRINT" {WHT} ERRORE NELLE DATA” : END 




: rem 

57 

1 2 

Z$=" 00":W$="{ 3 SPAZI}":BC$=CHR$(14) 

: rem 

207 

1 5 

COLORO,1 :COLOR4,1 :VOL8 

: rem 

31 

20 

DIMLO(50) ,N$(50) ,BY(50) : 1 = 1:J$=CHR$ (16) :CR$ = 

CHR$ (13) 



: rem 

21 1 

25 

M$ = "ELENCO PROGRAMMI"+CR$ 

: rem 

161 

30 

LC$=CHR$(15):PRINT"{CLR}{ 8 DES}{CYN}{RVS} CATALOGATOR 


E DI NASTRI " 

: rem 

22 

40 

PRINT"{WHT}{HOME}{ 3 GIU'}STAMPA (S/N)?" 

: rem 

166 

45 

GETKEYH? 

: rem 

158 

50 

IFH$ = "N"THEN55 

: rem 

200 

52 

PRINT"{RVS}{GIU'}{YEL}{DES} ACCENDI LA STAMPANTE 



{ 2 SPAZI}E PREMI RETURN " 

: rem 

21 7 

53 

GETH$: IFH$<>CHR$(13)THEN53 

: rem 

1 76 

54 

H= 1 :GOSUB900:OPEN4,4 

: rem 

1 1 4 

55 

S$ = "UNO": INPUT"{GIU'}{WHT}NOME CASSETTA";CN$ 

:PRINT 

II 


{GIU'jLATO (1/2)?" 

: rem 

93 

56 

GETH$:IFH$<"1"ORH$>"2"THEN56 

: rem 

248 

60 

S=VAL(H$) : INPUT"{GIU’}DATA";DA$:IFS=2THENS$= 

"DUE" 




: rem 

67 

65 

CN$=CN$+"/"+S$ 

: rem 

82 

70 

PRINT"{RVS}{GIU'}{ 5 DES} RIAVVOLGI IL NASTRO, 



{ 2 SPAZI}AZZERA " 

: rem 

4 

75 

PRINT"{RVS}{ 5 DES} IL CONTATORE{ 2 SPAZI}E 

PREMI ] 

RETO 


RN {YEL}" 

: rem 

1 00 

80 

GETA$ : IFA$OCHR$ (13) THEN80 

: rem 

1 62 

1 00 

GOSUB900:CLOSEl:IFST=-128THEN700 

: rem 

1 98 

1 1 0 

SYSl027:IFST=-128THEN700 

: rem 

1 50 

1 20 

Bl=PEEK(819)+256*PEEK(820):B2=PEEK(821)+256 

*PEEK(822) 


:BY(I)=B2-Bl 

: rem 

29 

1 30 

IFI=1THENM$=M$+CN$+CR$+DA$:PRINT"{CLR}{GIU' 

}"M$ 




: rem 

224 

1 40 

IFI=1ANDH=1THENPRINT#4,BC$M$LC$CR$ 

: rem 

41 

20C 

1 L$ = "":GOSUB900:GOSUB900: INPUT"{PUR}{RVS}CONTATORE 



{OFF}";L$: IFL$ = ""THEN200 

: rem 

76 

21 C 

1 L=VAL(L$) 

: rem 

1 92 

22C 

I IFI=1THENLO(2)=L:LO(1)=0:GOTO300 

: rem 

1 22 

23C 

I LO(1+1)=L 

: rem 

1 75 
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300 

FORX= OTO15: N$( I)=N$(I)+CHR$(PEEK(823+X) ) : 

NEXT 


350 


: rem 

99 

Q$=STR$(LO(I) ) :LO$ = LEFT$(Z$ f 5-LEN(Q$) )+MID$ (Q$,2) 




: rem 

1 93 

352 

Y$=STR$(BY (I) ) :BY$ = LEFT$(W$,6-LEN(Y$))+MID$(Y$,2) 




: rem 

21 7 

355 

PRINT"{RED}{RVS}"LO$" {DES}{WHT}"N$(I)"{ 

5 DES}{GRN}" 


BY$" BYTES":GOSUB900 

: rem 

1 57 

360 

IFH=1THENGOSUB920 

: rem 

40 

370 

IFL$ = "*"THENCLOSE1 :GOTO700 

: rem 

36 

400 

1 = 1 + 1 :GOTOl00 

: rem 

1 95 

700 

PRINT"{WHT}STATO I/O ="ST:GOSUB900 :CLOSEl 

:LM=I: IFN$(L 


M)=""THENLM=1-1 

: rem 

1 30 

800 

IFH=1THENPRINT# 4 :CLOSE4:H = 0 

: rem 

1 95 

81 0 

PRINT"{GIU'}{WHT}ELENCO (S/N/C)?" 

: rem 

8 

81 2 

GETKEYD$ 

: rem 

204 

815 

IFD $ = "N"THENE ND 

: rem 

1 06 

820 

IFD$ = "C"THENCLOSE4:OPEN4,4 :PRINT#4,BC$M$LC$CR$:H= 

1 



: rem 

238 

830 

PRINT”{CLR}{GRN}{RVS}”CN$:PRINT: FORI = 1TOLM :rem 

191 

832 

Q$ =STR$(LO(I) ) :LO$ = LEFT$(Z$,5-LEN(Q$) )+MID$(Q$,2) 


833 


: rem 

1 98 

Y$ = STR$(BY(I) ) :BY$ = LEFT$(W$,6-LEN(Y$))+MID$(Y$,2) 


835 


: rem 

221 

PRINT”{YEL}{RVS}”LO$” {DES}{WHT}”N$(I)”{DES}{GRN} 

"BY$ 


" BYTES" 

: rem 

91 

840 

IFD$="C"THENGOSUB920 

: rem 

161 

845 

IFI/20<>INT(I/20)THEN860 

: rem 

1 03 

846 

PRINTTAB(12)"{GIU'}{WHT} PREMI UN TASTO " 

: rem 

191 

847 

GETKEYH5 

: rem 

216 

848 

PRINT"{CLR}{GIU'}" 

: rem 

25 

860 

NEXT:GOTO800 

: rem 

232 

900 

SOUNDl,900,15:RETURN 

: rem 

196 

920 

PRINT#4,LO$J$+"06"N$(I)J$+"24"BY$" BYTES" 

: RETURN 


1 000 


: rem 

1 60 

i DATAI 69,1 ,1 70,160,0,32,1 86,255,169,0,32, 

189,255, 

1 69, 


1 , 32,21 3,255,96 

: rem 

1 3 



Questo avvincente solitario mette- stra capacità di concentrazione e 
rà sicuramente a dura prova la vo- la vostra pazienza. All'inizio vi tro- 
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verete di fronte ad una scacchiera 
composta da nove caselle, all'in¬ 
terno delle quali sono racchiusi dei 
numeri compresi tra 0 e 5. Alle ca¬ 
selle corrispondono le lettere vi¬ 
sualizzate accanto alla scacchiera, 
che sono.- 

Q W E 
A 5 D 
Z X C 

Il gioco avviene appunto utilizzan¬ 
do i tasti cotrassegnati da queste 


nove lettere. Premendo il tasto Q, 
ad esempio, aumentano di una 
unità i numeri racchiusi nelle casel¬ 
le della riga e della colonna di cui 
la casella Q fa parte: in questo ca¬ 
so, cioè, si modificheranno i nume¬ 
ri delle caselle Q, W, E, A, Z. Se¬ 
guendo questo procedimento do¬ 
vrete, e la cosa non sarà poi così 
semplice, rendere uguali a zero tut¬ 
ti i numeri della scacchiera. Buona 
fortuna! 


1 5 D$ = "{ 11 DES}” 

20 M=0:POKE53280,1 1 :POKE532 81 
30 DIMA%(2,2) 

40 GOTOIOOO 

100 REM * *SCHERMO* * 

1 10 PRINT"{CLR} [<!>]" 

120 PRINTD$" [<A>]C[<R>]C[<R> 
130 PRINTDS" B B B B{ 2 SPAZI 
140 PRINTD$" [<Q>] C+C+C [<W>] 11 

150 PRINTDS" B B B B{ 2 SPAZI 
160 PRINTD$" [<Q>] C+C+C [<W>]" 
170 PRINTD$" B B B B{ 2 SPAZI 
180 PRINTD$" [<Z>]C[<E>]C[<E> 

190 RETURN 

200 REM **DISEGNO CAMPO** 

210 FORA=ITOTI 
220 I=9*RND(0)+1 
230 GOSUB300 
240 GOSUB500 
250 NEXT 
260 RETURN 

300 REM **MOVIMENTO* * 

310 Y=INT ( ( I-1)/3) 

320 X=I-1 -3*Y 

330 FORZ=0TO2 

340 A%(X,Z)=A%(X,Z)+1 

350 A%(Z,Y)=A%(Z,Y)+1 

360 NEXT 

370 A% (X/ Y) = A% (X, Y) -1 
380 WF=1 
390 FORP=0TO2 
400 FORQ=0TO2 

410 IFA%(P,Q)=6THENA%(P,Q)=0 
420 WF=WFAND(A%(P,Q)=0) 

430 NEXT:NEXT 



: rem 

1 42 

,0 

: rem * 

221 


: rem 

1 32 


: rem 

94 


: rem 

46 


: rem 

119 

]C[<S>]" 

: rem 

21 5 

}Q W E" 

: rem 

1 94 


: rem 

43 

}A S D" 

: rem 

1 75 


: rem 

45 

}Z X C" 

: rem 

206 

]C [<X>] " 

: rem 

231 


: rem 

1 22 


: rem 

1 51 


: rem 

46 


: rem 

62 


: rem 

1 68 


: rem 

1 71 


: rem 

21 4 


: rem 

1 20 


: rem 

221 


: rem 

1 92 


: rem 

1 80 


: rem 

25 


2 rem 

90 


2 rem 

93 


2 rem 

21 6 


2 rem 

93 


2 rem 

1 66 


2 rem 

21 


2 rem 

1 4 


2 rem 

59 


2 rem 

34 


2 rem 

79 
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440 

RETURN 

: rem 

1 20 

500 

PRINT"{HOME}"D$ 

: rem 

225 

520 

FORQ=0TO2 

: rem 

1 7 

530 

PRINTD$"{GIU'}{DES } "; 

: rem 

58 

540 

FORP=0TO2 

: rem 

1 8 

550 

PRINT"{DES}";RIGHT$(STR$(A%(P,Q)),1); 

: rem 

64 

560 

NEXTP 

: rem 

42 

570 

PRINT 

: rem 

41 

580 

NEXTQ 

: rem 

45 

590 

RETURN 

: rem 

1 26 

600 

REM **INPUT** 

: rem 

1 78 

61 0 

GETA$: IFA$ = ""THEN61 0 

: rem 

81 

620 

FORA=1TO 9 

: rem 

1 0 

630 

IFA$ =MID$("QWEASDZXC",A,1)THENI = A:A=9:F=1 

: rem 

1 82 

640 

NEXT 

: rem 

21 7 

650 

IFF=1THENM=M+1 

: rem 

64 

660 

RETURN 

: rem 

1 24 

1 000 

REM * * PROGRAMMA PRINCIPALE** 

: rem 

21 8 

1 01 0 

GOSUBl00 

: rem 

21 1 

1 020 

GOSUB200 

: rem 

21 3 

1030 

F=0:GOSUB600:IFF=0THEN1 030 

: rem 

54 

1040 

GOSUB300 

: rem 

21 6 

1050 

GOSUB500 

: rem 

219 

1 060 

IFWF=0THEN1030 

: rem 

83 

1 070 

PRINT"{GIU'}" 

: rem 

1 70 

1080 

PRINTSPC(8)"COMPLIMENTI ! IN";M;"MOSSE" 

: rem 

1 44 


ERRATA CORRIGE 

Ripubblichiamo alcune linee che, per un inconveniente verificatosi in 
fase di stampa, risultavano poco lessibili su molte copie della rivista. 

- Dal programma "Bioritmi " per 06 (Papersoft n. 18): 

530 PRINT" [<1>] {GIU' } {RVS}{ 8 SPAZl}PREMI <S> PER SMETTE 

RE{ 8 SPAZI}" 

540 PRINT" {RVS}{ 5 SPAZI}<RETURN> PER GIORNO SEGUENTE 
{ 5 SPAZI}" 

550 PRINT" {RVS}{ 9 SPAZI}<G> PER ALTRO GIORNO{ 9 SPAZI} 

{ 2 SU}": RETURN 

- Dal programma "All’arrembaggio" per C64 (Papersoft n. 19): 

420 FORX=0TO4:D(X)=SQR((PX(X)-LX)t2+(PY(X)-LY)t2) 

430 IFC(X)<=0ORM(X)<=0THEN620 

Ci scusiamo con i lettori. 
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Typins derby 



Molto spesso le riviste che pubbli¬ 
cano programmi per i computer 
più diffusi, riportano listati molto 
lunghi che richiedono molto tempo 
per essere trascritti, specialmente 
per chi usa solo poche dita nella 
battitura. 

Questo simpatico programma oltre 
ad insegnare come battere con tut¬ 
te le dita, utilizza un divertente me¬ 
todo di esercitazione che rende fa¬ 
cile e interessante l'apprendimen¬ 
to. Infatti, dopo aver mostrato 
quali tasti deve premere ciascun 
dito delle mani, visualizza una pi¬ 
sta da corsa dove trattano due ca¬ 
valli: uno (quello nero) è spostato 
di tanto in tanto dal computer, l’al¬ 
tro viene mosso di una posizione 
ad ogni tasto premuto corretta- 


mente sulla tastiera. 

Per sapere quali tasti premere, 
vengono visualizzate in fondo allo 
schermo 3 righe di caratteri. 
Partendo dall'inizio il giocatore do¬ 
vrà premere i tasti guardando la se¬ 
quenza. 

Ogni lettera della sequenza battu¬ 
ta correttamente cambia colore e 
si può passare alla lettera successi¬ 
va. 

In questo gioco sono disponibili 
13 livelli di difficoltà selezionabili 
all'inizio della partita. 

Quando si vince la corsa vengono 
conquistati 10 punti. 

Se si riesce a battere il cavallo del 
C64 per 23 volte, si passa automa¬ 
ticamente al livello successivo. 

E allora... buona battitura!! 


0 FORL = 54272T054296 :POKEL,0 :NEXTL:POKE53281 , 1 5 :POKE53280, 
15. : rem 34 

1 POKE54296,0:PRINT"{CLR}{ 8 GIU'}{ 14 DES}{RVS}{RED}TYPI 

NG DERBY{OFF}{BLK}" :rem 35 

2 PRINT"{ 5 GIU'}{ 11 DES}ISTRUZIONI{ 2 SPAZI}(S/N)?" 

:rem 23 

4 GETA$:IFA$=""THEN4 :rem 139 

6 IFA$ = "S"THENGOSUB400 : rem 65 

8 PRINT" {CLR} { 10 GIU'H 10 DES}LIVELLO{ 2 SP AZI } ( 1 -1 3 ) " ; 

:INPUTLl : rem 20 

9 IFL1ClORLl>13THEN8 : rem 217 

10 C(0)=554 56:C(1 )=55576:C(2)=55696:H= 11 84:Hi =1 2 24:J = 1 624 

: rem 211 

11 L=L1:S= (220*(Li-1)) + (l0*-(Li>1) ) :rem 222 

14 PRINT" {CLR} { 11 GIU'H 5 DES} VELOC ITA ' DEL COMPUTER (5 

-50)"SPC (58)"(50 = LENTO)"; :rem 135 

15 INPUTRl:R=Rl : rem 197 

16 IFR<50RR>50THEN14 : rem 227 
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17 GOTO 21 :rem 4 

18 POKE198,0 SPRINT"{CLR}{ 10 GIU'}{ 9 DES}VUOI CONTINUARE 

t C /K7 \ O 11 , ~ ^ 


1 9 

(S/N)?" 

: rem 

1 26 

GETX$: IFX$ = ""ANDX$<>"N"ANDX$<>"S"THENl9 

: rem 

224 

20 

IFX$="N"THENEND 

: rem 

66 

21 

M=0:N=0: Ni=0 :IFS>220*LTHENL=L+1:Ll=Ll+l:R=Rl: 
NPRINT"{CLR}F INE !":END 

IFL>13THE 
: rem 179 

22 

PRINTCHR$(147) :POKE53280,3 :POKE53281 , 1 :PRINT" 
PUNTI:{RVS}"S:IFLl>9THEN24 

{SU}{BLK} 
:rem 31 


23 PRINTTAB(28)"{SU}{OFF} LIVELLO{RVS}"Li"{OFF}":GOTO30 


:rem 61 

24 PRINTTAB(28)"{ 2 SU} LIVELLO{RVS}"Li"{OFF}" :rem 103 

30 FORI = l144T01183 :POKEI,114:POKEI + 54272,0 :NEXTI: rem 125 

31 FORI = 1264T01 30 3 :POKEI,91:POKEI + 54272,0 :NEXTI :rem 79 

32 FORI = 1 384T01423:POKEI,91 :POKE54272+1,0:NEXTI :rem 86 

33 FORI = 1 504TO1 543 :POKEI,113:POKE54272+1,0:NEXTI: rem 127 

34 POKEI 502,103 :POKE55774,0 :POKEI 462,95 :POKE55734,2 


:rem 142 

35 FORI = 1T03*L-2 :READD$:NEXTI:RESTORE:PRINT"{HOME} 

{ 15 GIU'}{BLU}"D$ : rem 51 

50 FOR1 = 1TO3*L-1 :READD$:NEXTI:RESTORE:PRINT"{HOME} 

{ 16 GIU'}{BLU}"D$ ; rem 64 

51 FORI=1T03*L:READD$:NEXTI:RESTORE:PRINT"{HOME} 

{ 17 GIU'}{BLU}"D$ : rem 244 

53 IFL=7THENPOKEl646,44 ;rem 122 

54 IFL=8THENF0RI=0T06STEP2:POKEI624+1,58:NEXTI :rem 240 

55 IFL= 8 THEN:POKEI 663,44:POKEl 730,58 :POKEI 732,58:rem 82 

56 IFL=9THENPOKEl689,58 :rem 139 

60 FORI = OTO 2 :FORT=0TO3 9 :POKEC(I)+T,2 :NEXTT:NEXTI:POKEH,94 


:rem 197 

70 FORI = 0TO2:FORT=0TO39:POKEC(I)+40+T,0 :NEXTT:NEXTI:POKEH 
1 : rem 132 

80 IFN=0 AND M=0ORS=(300*L)+10THENGOSUB300 :rem 152 

90 IFM=390RM=159THENM1=M:M=M+80 ;rem 147 

100 IFPEEK (Hi +M+1 ) 032THEN1 8 ;re m 90 

110 IFTI>T+RTHENPOKEHl+Ml ,32 :POKEH1+M,32:M=M+1:POKEH1+M,9 
4:T=TI :rem 145 

120 GETA$:IFA$ = ""THEN90 : rem 31 

130 IFASC(A$)=PEEK(J+Nl)THENl50 :rem 28 

140 IFASC (A$) OPEEK (J+Nl )+64THEN90 :rem 194 

1 50 POKE55 896+N1,2:Nl=Nl+1 :IFN=390RN=159THENN2=N:N=N+81 


1 60 POKEH+N,32 :POKEH+N2,32 :N=N+1 :IFPEEK(H+N)<>32THENS=S + 1 



0 :R=R-1 : 

GOTOl 8 








: rem 

70 

170 

POKEH+N, 

94 : ( 

GOTO90 







: rem 

253 

200 

DATAFRF 

FTF 

FGF 

FBF 

FVF 

FRF 

FTF 

FGF 

FBF 

FVF 

: rem 

46 

201 

DATAFRF 

FTF 

FGF 

FBF 

FVF 

FRF 

FTF 

FGF 

FBF 

FVF 

: rem 

47 

202 

DATAFRF 

FTF 

FGF 

FBF 

FVF 

FRF 

FTF 

FGF 

FRTB 

: rem 

1 74 

203 

DATADED 

DCD 

FRF 

FTF 

FGF 

FBF 

FVF 

DED 

DCD 

FRF 

: rem 

254 

204 

DATAFTF 

FGF 

FBF 

FVF 

DED 

DCD 

FRF 

FTF 

FGF 

FBF 

: rem 

10 
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205 

DATAFVF 

DED 

DCD 

FRF 

FTF 

FGF 

FBF 

FVF 

FDEV 

rem 

1 45 

206 

DATASWS 

SXS 

DED 

DCD 

FRF 

FTF 

FGF 

FBF 

FVF SWS 

rem 

131 

207 

DATASXS 

DED 

DCD 

FRF 

FTF 

FGF 

FBF 

FVF 

SWS SXS 

rem 

1 33 

208 

DATADED 

DCD 

FRF 

FTF 

FGF 

FBF 

FVF 

SWS 

SCDX 

rem 

1 88 

209 

DATAAQA 

AZA 

SWS 

SXS 

DED 

DCD 

FRF 

FTF 

FGF AQA 

: rem 

91 

210 

DATAAZA 

SWS 

SXS 

DED 

DCD 

FRF 

FTF 

FGF 

AQA AZA 

rem 

92 

21 1 

DATASWS 

SXS 

DED 

DCD 

FRF 

FTF 

FGF 

AQA 

AZQW 

rem 

232 

21 2 

DATAJUJ 

jyj 

JHJ 

JNJ 

JMJ 

AQA 

AZA 

SWS 

SXS DED 

rem 

155 

21 3 

DATADCD 

JUJ 

JYJ 

JHJ 

JNJ 

JMJ 

AQA 

AZA 

SWS SXS 

rem 

1 54 

214 

DATADED 

DCD 

JUJ 

JYJ 

JHJ 

JNJ 

JMJ 

AQA 

JUQX 

rem 

21 7 

21 5 

DATARIK 

KIK 

JUJ 

JYJ 

JHJ 

JNJ 

JMJ 

AQA 

AZA SWS 

rem 

145 

216 

DATASXS 

DED 

DCD 

KIK 

KIK 

FRF 

JUJ 

JYJ 

JNJ JMJ 

rem 

126 

21 7 

DATAAQA 

AZA 

SWS 

SXS 

DED 

DCD 

KIK 

KIK 

KIZD 

rem 

230 

21 8 

DATALOL 

L.L 

KIK 

KIK 

JUJ 

JYJ 

JHJ 

JNJ 

JMJ AQA 

rem 

1 04 

21 9 

DATAAZA 

SWS 

SXS 

FTF 

LOL 

L.L 

KIK 

KIK 

JUJ JYJ 

rem 

174 

220 

DATAJHJ 

JNJ 

JMJ 

AQA 

AZA 

SWS 

SXS 

FTF 

LZJM 

rem 

20 

221 

DATA;P; 

;/? 

LOL 

L.L 

KIK 

KIK 

JUJ 

JYJ 

JHJ JNJ 

rem 

25 

222 

DATAJMJ 

AQA 

AZA 

SWS 

SXS 

• p • 

9 r 9 

;/; 

LOL 

L.L KIK 

rem 

50 

223 

DATAKIK 

JUJ 

JYJ 

JHJ 

JNJ 

JMJ 

AQA 

AZA 

SK; Q 

rem 

222 

224 

DATAAl1 

S22 

D33 

F44 

F55 

J 66 

J77 

K 88 

L99 ; 00 

rem 

150 

225 

DATAZ11 

X22 

C33 

V44 

V55 

N 66 

Al 1 

S22 

D33 F44 

rem 

190 

226 

DATAF55 

J 66 

J77 

K 88 

L99 

; 00 

Zi ì 

X22 

C3F5 

:rem 

79 

227 

DATASE 

SE SE SE 

SE 

VAI 

VAI 

VAI 

VAI 

VAI VAI 

rem 

237 

228 

DATA PIU' 

PIU' 

PIU 

' PIU' PIU' PIU’ 

VELOCE VEL 












rem 

21 7 

229 

DATAOCE 

VELOCE VELOCE VINCI 

VINCI VINCI 

: rem 

1 1 7 

230 

DATAE' 

SEMPRE E 

' SEMPRE 

E' 

SEMPRE PIU' DIFFI 

: rem 

206 

231 

DATACILE PIU' DIFFICILE 

PIU 

' DIFFICILE PIU' 

: rem 

10 

232 

DATADIFFICILE INSISTI INSISTI E 

VINCERAI 

: rem 

1 2 

233 

DATASIAMO ARRIVATI 

SIAMO ARRIVATI AL PENULTI 

: rem 

22 

234 

DATAMO 

AL PENULTIMO 

LIVELLO 

.ANCORA 

L'ULTIMO 

: rem 

223 

235 

DATA SFORZO 

ANCORA 

L'ULTIMO 

SFORZO 

ANCORA 

: rem 

47 

236 

DATAQUESTO 

E' L 

'ULTIMO 

LIVELLO; ORA 

DOVRESTI 

: rem 

243 

237 

DATAESSERE 

IN GRADO 

DI 

SCRIVERE 

IN 

MODO SPED 

: rem 

99 

238 

DATAITO 

E SENZA 

ERRORI 

VINCENDO 

LA 

GARA. . 

: rem 

1 50 


300 V=54296:Vi=54276:AD=54277:SR=54278:FH=54273:FL=54272 

: rem 120 

301 POKEV,15:POKEFH,70 :POKEFL,75 : rem 200 

302 POKEAD,26 :POKESR,178 :FORT=lTOl0 :POKEVl,17 :rem 34 

303 FORQ=lTOl50:NEXT:POKEVl,16:NEXT : rem 234 

304 POKE542 96,0 : RETURN :rem 70 

400 PRINT"{CLR}{GIU'}{ 13 DES}{RVS}{RED}TYPING DERBY{OFF} 

{BLK}" :rem 35 

401 PRINT"{GIU'}{ 2 DES}{RVS}{RED} INSEGNA A SCRIVERE CON 

LA TASTIERA {OFF}{RED}" ;rem 0 

402 PRINT"{ 2 GIU'}{ 2 DES}{RVS}1{OFF}{WHT} IMPARA QUALI 

DITA USARE PER I VARI{ 6 SPAZI{TASTI{RED}" :rem 120 

403 PRINT"{GIU'}{ 2 DES}{RVS}2{OFF}{WHT} BATTI SENZA GUAR 

DARE SULLA TASTIERA{RED}" :rem 200 
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404 

405 

406 

407 
650 
660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 
770 
780 
790 
800 
81 0 
820 


PRINT"{GIU'}{ 2 DES}{RVS}3{OFF} ALL'INIZIO E' PIU' IM 
PORTANTE ESSERE{ 4 SPAZI{PRECISI CHE RAPIDI{RED}" 

• ir Gin 9 2 

PRINT"{GIU'}{ 2 DES}{RVS}4{OFF}{WHT} INCITA IL CAVALL 


0 NERO 23 VOLTE E{ 7 SPAZI}MUOVILO :rem 175 

PRINT"AL SUCCESSIVO LIVELLO":PRINT"{ 3 GIU'} 

{ 11 DES}{RVS}{BLK} PREMI UN TASTO {OFF}" :rem 114 
GETF$:IFF$=""THEN407 :rem 99 

PRINT"{CLR}":POKE53280,9 :POKE53281 ,1 5 :rem 205 

PRINT"{CLR} {WHT}":PRINT"{ 9 SPAZl}{RVS} Q {OFF} 

{ 16 SPAZI}{RVS} Q " : rem 104 

PRINT"{ 6 SPAZI}{RVS} Q[<M>] 3[<M>] Q {OFF} 

{ 10 SPAZI}{RVS} Q[<M>] 8 [<M>] Q " :rem 111 

PRINT"{ 6 SPAZI}{RVS} 2[<M>] E[<M>] 4 {OFF} 

{ 10 SPAZI}{RVS} 6 [<M>] I[<M>] 9 " :rem 36 

PRINT"{ 3 SPAZI}{RVS} Q[<N>] W[<N>] [<5>]D{WHT}[<M>] 

5 {OFF} { 10 SPAZIHRVST 7 [ <N> ] [ < 5> ] K {WHT } [ <M> ] O 
[<M>] Q " : rem 150 

PRINT"! 3 SPAZI}{RVS} 1[<M>] [<5>]S{WHT}[<M>] C[<M>] 

R {OFF}{ 10 SPAZI}{RVS} Y[<M>] ,[<M>} [<5>]L{WHT} 

[<M>] 0 " :rem 92 

PRINT"{ 3 SPAZI}{RVS} Q[<M>] X[<M>j: 2 SPAZI}[<M>] T 
[<M>] Q {OFF}{ 4 SPAZI}{RVS} Q[<M>] U[<M>]{ 2 SPAZI} 
[<M>] . [<M>] P " : rem 201 

PRINT"{ 3 SPAZI}{RVS} [<5>]A{WHT}[<M>]{ 7 SPAZI}[<5>] 
F{WHT}[<M>]{ 3 SPAZI}{OFF}{ 4 SPAZl}{RVS} {BLK}S{WHT} 
[<M>] H{ 6 SPAZI}[<M>] [<5>] :{WHT} " :rem 132 

PRINT"{ 3 SPAZI}{RVS} Z[<M>]{ 7 SPAZl}G[<M>] 

{ 3 SPAZI}{OFF}{ 4 SPAZI}{RVS} {BLK}P{WHT}[<M>] [<5>] 

J{WHT}{ 6 SPAZI}[<M>] / " : rem 89 

PRINT"{ 3 SPAZI}{RVS}{ 10 SPAZI}V[<M>]{ 3 SPAZI}{OFF} 
{ 4 SPAZI}{RVS} {BLK}C{WHT}[<M>] M{ 10 SPAZI}" 


:rem 235 

PRINT"{ 3 SPAZI}{RVS}{ 10 SPAZI}B{ 4 SPAZI}{OFF} 

{ 4 SPAZI}{RVS} {BLK}E{WHT}{ 2 SPAZl}N{ 10 SPAZI}" 

:rem 141 

PRINT"{ 3 SPAZI}{RVS}{ 14 SPAZI}{OFF}£{ 4 SPAZI}[<*>] 
{RVS}{ 14 SPAZI}" “ : rem 172 

PRINT"{ 3 SPAZI}[<*>]{RVS}{ 12 SPAZl}{OFF}£ 

{ 6 SPAZI}[<*>] {RVS}{ 12 SPAZI}{OFF}£" : rem 199 

PRINT"{ 4 SPAZI}[<*>]{RVS}{ 10 SPAZlT{OFF}£ 

{ 8 SPAZI}[<*>]{RVS}{ 10 SPAZI}{OFF}£" :rem 200 

PRINT"{ 5 SPAZI}{RVS}{ 10 SPAZI}{OFFT{ 10 SPAZI}{RVS} 
{ 10 SPAZI}" : rem 39 

PRINT"{ 5 SPAZI}{RVS}{ 10 SPAZI}{OFF}{ 10 SPAZI}{RVS} 
{ 10 SPAZI}" :rem 31 

PRINT:PRINT"{ 6 SPAZI}{RVS}SINISTRA{OFF}{ 13 SPAZI} 
{RVS}DESTRA" ; rem 23 

PRINTTAB(12)"SCHEMA DELLE DITA”:PRINT"{GIU'} 

{ 12 SPAZI}{RVS}{BLK}BARRA SPAZIATRICE{OFF}":rem 38 


24 



830 PRINT"{ 12 SPAZI}{RVS}[<5>]TASTI{ 2 SPAZI{PRINCIPALI 
{OFF}" :rem 24 

840 PRINT"{GIU'}{ 5 DES}{WHT}PREMI UN TASTO PER CONTINUAR 

E"; :rem 217 

850 GETQ$:IFQ$=""THEN850 :rem 125 

860 RETURN :rem 126 


1 ' C64 

Scacchi 


Quello che vi presentiamo è un 
semplice programma che vi con¬ 
sente di giocare a scacchi contro il 
vostro C64. Comunicate le vostre 
mosse al computer impostando le 
coordinate di partenza e di arrivo 
nel formato (x,y). Sullo schermo i 
pezzi sono rappresentati dalle loro 
lettere inizialivoi giocate col bian¬ 
co ed il C64 col rosso. Data l'esigui¬ 
tà del programma non potete natu¬ 
ralmente aspettarvi di avere di 
fronte un avversario forte,- se tutta¬ 


via siete degli scacchisti alle prime 
armi, il divertimento è assicurato. 
Tenete tuttavia presente che il pro¬ 
gramma non prevede l'arrocco e le 
prese "en passant”,- inoltre siate 
onesti, perché il computer accetta 
anche le mosse illegali, ed abbiate 
pazienza, perché il tempo d'attesa 
per ogni mossa può superare i due 
minuti. Il programma provvede a se¬ 
gnalare l'eventuale scacco matto,- 
per sospendere la partita battete 
999,999 al posto delle coordinate. 


1 0 

REM SCACCHI 

: rem 

51 

20 

POKE53280,10:POKE53281,0 

: rem 

232 

30 

PRINT"{CLR}{GIU'}{GRN}{ 12 SPAZI}ATTENDI PREGO" 




: rem 

1 24 

40 

KX=5:KY = 8:DIMB%(8,8) ,D% (6,8,2) ,P%(6) ,A$(6) 

:FORY=1T08:F 


ORX=1TO 8 

: rem 

21 5 

50 

B%(X,Y)=0 :IFY=1THENREADB%(X,Y) 

: rem 

21 5 

60 

IFY=8THENB%(X,Y)=-B%(X,1) 

: rem 

94 

70 

IFY=2THENB%(X,Y)=-1 

: rem 

29 

80 

IFY= 7THENB%(X,Y)=1 

: rem 

246 

90 

NEXT:NEXT 

: rem 

33 

100 DATA-4,-2,-3,-5,-6,-3,-2,-4 

: rem 

228 


110 FORX=1T06:P%(X)=2 :FORY=1T08:IFY<30RY=8THEND%(X,Y,2)=1 

:retn 52 
:rem 24 


120 IFY>1ANDY< 5THEND%(X , Y , 1 ) = 1 

25 









1 30 

IFY> 5THEND%(X,Y, 1 )=-l 

: rem 

1 73 

1 40 

IFY> 3ANDY<7THEND%(X,Y,2) = -l 

: rem 

76 

1 50 

NEXT: IFX02THEN1 90 

: rem 

1 07 

1 60 

FORY=1T04:READD%(X,Y,1),D%(X,Y,2):D%(X,Y+4, 

1 ) =-D%(X,Y 


,1):D%(X,Y+4,2)=D%(X,Y,2) 

: rem 

50 

1 70 

NEXT 

: rem 

21 5 

1 80 

DATA-2,1,-1,2,1,2,2,1 

: rem 

205 

1 90 

IFX=1THENP%(X)=8 

: rem 

1 77 

200 

IFX>4THENP%(X)=1 

: rem 

1 66 

210 

NEXT:FORX=lT06:READA$(X):NEXT 

: rem 

1 1 1 

220 

DATAP,C,A,T,D,R 

: rem 

72 

230 

PRINT"{CLR}":GOTO620 

: rem 

4 

240 

XB=0:YB=XB:DB=XB:CL=1:BP=XB:X=9:AX=KX:AY=KY 

:F1 $ = "":GO 


SUB750: Fi$=F$ 

: rem 

82 

250 

FORY=1T08:FORX=lT08:TB=0:C=1:TY=0:TX=0:D=0 

: rem 

1 56 

260 

IFB%(X,Y)<1THEN600 

: rem 

238 

270 

P = B%(X,Y) : FORI = 1T08:DY=D%(P,1,2) :DX=D%(P,I, 

1):AX= 

KX: A 


Y=KY:Cl=1 :P0 = 0 

: rem 

24 

280 

IFX+DX<1ORX+DX> 80RY+DY<1ORY+DY> 8THEN530 

: rem 

25 

290 

IFP>2ANDP<6THEN440 

: rem 

70 

300 

IFDY>-1ANDP=1THEN530 

: rem 

1 79 

310 

IFY>10RP>1THEN360 

: rem 

1 9 

320 

FORI1=5TOlSTEP- 1 

: rem 

214 

330 

IFP%(Il ) < 2THENP%(II)=P%(Il)+1:B%(X,Y)=11 : Il 

= 1 




: rem 

195 

340 

NEXT 

s rem 

21 4 

350 

GOTO530 

: rem 

1 05 

360 

IFDX< >0ANDB%(X+DX,Y+DY)>-lTHEN530 

: rem 

200 

370 

IFP=6THENKX=X:KY=Y:AX=X+DX:AY=Y+DY:GOSUB740 

: I FF$ = 

1» 1 11 rp 


HEN530 

: rem 

41 

380 

IFDX = 0ANDB% (X,Y+DY) O0THEN530 

2 rem 

212 

390 

PO = 8-P-B%(X+DX,Y+DY) *3 

2 rem 

219 

400 

IFY< >70RDX< >OORB%(X,5)< >OORP>1THEN530 

2 rem 

247 

410 

IFFl$ = "1"THENGOSUB740 :IFF$ = ""THEN530 

2 rem 

54 

420 

IFFl$="1"ORRND(1)>.3THENC1=2 

2 rem 

42 

430 

GOTO530 

2 rem 

1 04 

440 

Xl=X:Yl=Y 

2 rem 

1 6 

450 

IFP=3ANDINT(1/2)* 2<ITHEN530 

2 rem 

73 

460 

IFP=4ANDINT(1/2)*2=ITHEN530 

2 rem 

76 


470 IFXl+DX<1ORXl+DX>80RYl+DY<1ORYl+DY>8THENCl=C1-1:G0T05 
30 :rem 212 

480 IFB% (Xl +DX,Yl +DY) >0THENC1 =Cl - 1 :GOTO530 :retn 220 

490 PO=8-P+INT(RND(1)*3)-B%(Xl+DX,Yl+DY)*3 :rem 104 

500 IFFl$="1"THENGOSUB740:IFF$=""THENPO=PO+50:GOTO570 

:rem 184 

510 IFB% (X1+DX,Y1+DY) O0THEN530 : rem 28 

520 Cl=Cl+l:Xl=Xl+DX:Yl=Yl+DY:G0T0470 :rem 201 

530 IFPO=0THEN570 ; rem 254 

540 IFF1 $ = "1"THENGOSUB740:IFF$ = ""THENPO=PO+50:GOTO570 

:rem 188 
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550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 


800 

810 

820 

830 

840 

850 


860 

870 

880 

890 


: rem 136 
: rem 160 


IFFl$ = ""THENGOSUB740 :IFF$ = "1 "THENPO = 0:GOTO570 

:rem 190 

IFPO>=TBTHENAX=X+DX*Cl:AY=Y+DY*Cl:GOSUB740:IFF$="1"TH 
ENPO=PO-P* 2 : rem 41 

IFPO>TBTHENTB = PO:TX=X:TY=Y:D = I:C=C1 : rem 105 

NEXT : rem 220 

IFTB>BPORTB=BPAND(RND(1)>.90R(TY<YBANDRND(1)>.5))THEN 
BP=TB:XB=TX:YB=TY:CL=C:DB=D :rem 178 

NEXT:NEXT:P=B%(XB,YB):Xl=XB+D%(P,DB,1)*CL:Yl=YB+D%(P, 
DB,2)*CL:IFP=6THENKX=Xl:KY=Yl :rem 40 

AX=KX:AY=KY:B%(Xl,Yl)=B%(XB,YB):B%(XB,YB)=0:Q=1:GOSUB 
750:Q=0 :rem 83 

GOSUB840 ; rem 180 

IFF$="1"THENPRINT"{GIU'}SCACCO MATTO":END :rem 151 
PRINT"{GRN}{ 2 GIU'}INTRODUCI LA TUA MOSSA": INPUT" 
{GIU 1 }DA"; X,Y:IFX= 999THENEND :rem 33 

INPUT" A";XB,YB : rem 76 

IFB%(XB,YB)>0THENP%(B%(XB,YB))=P%(B%(XB,YB))-1 

:rem 58 

B%(XB,YB)=B%(X,Y) :rem 136 

B%(X,Y)=0 : rem 160 

IFB%(XB,YB)<-1ORYB<8THEN720 :rem 89 

INPUT"PEZZO";A$: FORI1=1T05:IFA$(Il)=A$THENB%(XB,YB)=- 
Il :rem 75 

NEXT : rem 215 

GOSUB840 :rem 181 

GOTO240 :rem 105 

PC=B%(X+DX*C1,Y+DY*Cl):B%(X+DX*Cl,Y+DY*Cl)=B%(X,Y):B% 
(X,Y)=0 : rem 115 

F$ = "":FORPl=1TO6 :FOR11=1TO8 :D1=D%(Pi , 11 ,1) :D2=D%(Pi ,I 
1,2) :L=1 : rem 158 

IFAX+Dl*L<1ORAX+Dl*L>80RAY+D2*L<1ORAY+D2*L>8THEN800 

:rem 92 

IFPl=1ANDD2<1ANDQ=0THEN800 : rem 42 

IFB%(AX+Dl*L,AY+D2*L)=-PlTHENF$ = "l":GOT0810 : rem 180 

IFPl>2ANDPl<6ANDB%(AX+Dl*L,AY+D2*L)=0THENL=L+1:G0T076 
0 : rem 218 

NEXT:NEXT :rem 80 

IFX>8THEN830 :rem 192 

B%(X,Y)=B%(X+DX*Cl,Y+DY*Cl):B%(X+DX*Cl,Y+DY*Cl)=PC 

:rem 54 

RETURN : rem 123 

PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT : rem 211 


: rem 
: rem 


RETURN :rem 

PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT : rem 

PRINT"{CLR}{GIU'}{ 3 DES}{GRN}{ 13 SPAZI}12345678 
{GIU'}":FORY=8TOlSTEP-1:PRINT"{ 10 SPAZI}{GRN} 

{ 3 DES}"Y; • :rem 

FORX=l T08 : IFB% (X,Y) O0THEN890 :rem 

IFINT((X+Y)/2)*2=X+YTHENPRINT" ";:GOTO920 :rem 

PRINT"{BLU}{RVS} {OFF}"; :GOTO920 :rem 

IFB%(X,Y)<0THENPRINT"{WHT}";:GOT091 0 :rem 


: rem 


173 
254 
1 82 
1 25 
126 
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900 PRINT"{RED}"; 

910 PRINTA$(ABS(B%(X,Y))); 
920 NEXT:PRINT:NEXT:RETURN 


:rem 193 
: rem 212 
:rem 52 



Ti presentiamo questa settimana 
un gioco di carte. Se sei un esperto 
ti diciamo subito che si tratta di una 
variante del Blackjack ,• se invece 
non hai troppa familiarità con le 
carte, non preoccuparti: si tratta di 
un gioco facile, in cui il caso ha un 
ruolo molto importante. Ma, come 
sempre nei giochi d'azzardo, biso¬ 
gna saper amministrare bene la for¬ 
tuna... oppure senza neanche ac¬ 
corgertene puoi trovarti senza più 
un soldo! 

L’avversario è il tuo Commodore 
64, che tiene il Banco,- per comin¬ 
ciare disponi di 250 dollari. Al l’ini¬ 
zio di ogni mano vengono distri¬ 
buite due carte a testa, e tu devi 
effettuare la tua puntata,- fatto ciò 
devi decidere se fermarti o chiede¬ 
re altre carte, tenendo conto che 
vince chi totalizza il punteggio più 
vicino a 21. Le figure valgono 10 e 
le carte dal 2 al IO conservano il 
loro valore,- per l’asso, invece, il di¬ 
scorso è un po’ diverso, in quanto 
puoi scegliere se farlo contare 1 
oppure 11 a seconda di ciò che 
più ti conviene. In particolare, se 
le tue prime due carte sono un as¬ 
so e una figura, hai 21 punti serviti 
in mano-. in questo caso si dice ap¬ 


punto che hai il Ventuno, e la vitto¬ 
ria è sicura (a meno che non ce 
l’abbia anche il Banco, il quale vin¬ 
ce a parità di punteggio). 

Se invece hai pochi punti, chiedi 
un 'altra carta premendo C (se hai 
meno di 16 sei obbligato a farlo). 
Puoi chiedere anche altre carte, fi¬ 
no ad averne in mano cinque, ma 
stai attento: se superi i 21 punti, 
"sballi’’ e perdi la mano! A questo 
punto, però, c'è da aggiungere una 
cosa importante: nel caso che tu 
riesca a non sballare con cinque 
carte, il tuo gioco risulta vincente 
(senza tener conto del punteggio) 
a meno che il Banco non abbia il 
Ventuno. 

Se nel corso di una mano ti senti 
particolarmente sicuro, hai la pos¬ 
sibilità di rilanciare (cioè aumenta¬ 
re la posta in gioco), premendo R; 
ricordati però che puoi farlo solo 
prendendo un 'altra carta. Quando 
ritieni di avere raggiunto un pun¬ 
teggio sufficiente, premi B per ve¬ 
dere il gioco del computer. 
Vincendo una mano, naturalmen¬ 
te, ti aggiudichi la ci fra. puntata,- se 
poi hai il Ventuno o le cinque car¬ 
te, la vincita è raddoppiata. 
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1 00 

POKE53280,11:POKE53281,0:PRINT"{CLR}[<1>] 

" :GOTOl30 



: rem 

62 

no 

GETA$:IFA$=""THENl10 

: rem 

71 

! 20 

RETURN 

: rem 

1 1 5 

! 30 

F0RI = 1TOl0 :PRINTTAB(15)"{GIU'}{RVS}{ 9 SPAZIPRINTT 


AB(15)"{RVS} VENTUNO " 

: rem 

204 

1 40 

PRINTTAB(15)"{RVS}{ 9 SPAZI}":PRINT"{ 12 

GIU' }"TAB (1 5 


)"A CURA DI" 

: rem 

1 68 

150 

PRINT"{ 3 GIU'}"TAB(14)"{RVS} PAPERSOFT " 

: FORF=1TO250 


: NEXT 

: rem 

1 85 

1 60 

PRINT"{HOME}{ 2 GIU'}"TAB(15)"{ 10 SPAZI} 

" :rem 

1 1 1 

1 70 

PRINTTAB(15)" VENTUNO ":PRINTTAB(15)"{ 10 

SPAZI} 



{HOME}" 

: rem 

21 0 

1 80 

FORF=lTO250:NEXT:NEXT:PRINT"{CLR}" 

: rem 

254 

1 90 

DIMFL(52),D%(52):SP=1144:SC=1584:M=250:BM 

= 1 000 




: rem 

240 

200 

• 

• 

: rem 

204 

210 

PRINT"MESCOLO IL MAZZO" 

: rem 

1 56 

220 

D = 0 : Z=1 : FORI = 1T052 : FL ( I ) =0:D%(I)=0:NEXT 

: rem 

31 

230 

X=RND ( -TI ): FORI=1T052 

: rem 

1 1 

240 

C% = 52*RND ( 1 ) +1 : IFFL(C%) O0THEN2 40 

: rem 

1 7 

250 

IFI=48THENPRINT"{ 10 GIU'}HO QUASI FINITO 

" : rem 

165 

260 

D%(I)=C%:FL(C%)=1 :NEXT 

: rem* 

1 72 

270 

PRINT"{CLR}DISTRIBUISCO LE CARTE":CP=0:PP 

= 0 : CT=0: 

F=0 : 


A=0:RB = 0 : PF = 0 : AF = 0 : GOSUBl 1 60 

: rem 

77 

280 

S=SP:GOSUB860 : S=SC : GOSUB860 : S=SP+8 : GOSUB860 : S=SC+8 : GO 


SUB860 : S=SP 

: rem 

141 

290 

D = Z : GOSUB910 : GOSUB590 : PRINT"HAI"M"DOLLARI 

E"CT; : IFA>0 


THENPRINT"OPPURE"CT+10; 

: rem 

95 

300 

PRINT"PUNTI" : PRINT"PUNTATA INIZIALE (MINIMO 10 DOLLAR 


I) " 

: rem 

243 

310 

GOSUB650 : S=S+8:D=Z+2:GOSUB910:D=Z+3 

: rem 

104 

320 

• 

• 

: rem 

207 

330 

GOSUB590 : PRINT"HAI"M"DOLLARI E" ; 

: rem 

1 69 

340 

PRINTCT ; : IFA>0ANDCT<12THENPRINT"OPPURE"CT+1 0; 




: rem 

1 76 

350 

PRINT"PUNTI":PRINT" { RVS } R{OFF}ILANCIO, {RVS}C{OFF}AR 


TA O {RVS}B{OFF}ASTA ?":GOSUB110 

2 rem 

29 

360 

IFA$ = " R"THENGOSUB6 4 0 : GOT03 9 0 

2 rem 

1 84 

370 

IFA$="B"THENGOSUB590:GOSUB540:PRINT"PUNTEGGIO TOTALE: 


"CT:GOTO440 

2 rem 

83 

380 

IFA$<>"C"THEN400 

2 rem 

83 

390 

IFD<Z+7THENS=S+8:D=D+1:GOSUB860:GOSUB910 

2 rem 

227 

400 

IFCT>21THENGOSUB590 : PRINTCT"PUNTI - HAI SBALLATO! 

" :FO 


RI = 1T02000 : NEXT : GOTO730 

2 rem 

15 

410 

IFD=Z+6ANDCT<22THENGOSUB590 : PRINT"CINQUE 

CARTE ! !" 

: F=F 


+ 1 : GOTO440 

2 rem 

162 

420 

GOTO330 

2 rem 

101 

430 

• 

• 

2 rem 

209 

440 

FORI=lT02000 : NEXT 

2 rem 

20 
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450 S=SC:RT=D:PF=0:PP=CT:CT=0:A=0:D=Z+1:GOSUB910:S=S+8:D = 

Z + 3:GOSUB910 :D = RT :rem 158 

460 GOSUB590:PRINT"IL MIO PUNTEGGIO E V'CT:FORI = 1 TOT 000 : NE 
XT :rem 167 

470 IFCT<12ANDA>0THENCT=CT+10 :AF=1 :rem 55 

480 IFCT=21ANDPF=1ANDD=RTTHENGOSUB590:PRINT"VENTUNO!!!":G 
OSUBl170:F=F-3:GOTO680 :rem 20 

490 IFD = RT+3ANDCT< 22THENF = F-2 :PRINT"CINQUE CARTE!!":GOTO6 
80 :rem 164 

500 IFCT>21THENGOSUB590:PRINTCT"PUNTI - HO SBALLATO!":GOT 


51 0 

520 

530 

540 

550 

560 

570 

580 
590 
600 
61 0 
620 
630 
640 

650 

660 

670 

680 
690 
700 
71 0 
720 
730 
740 

750 

760 

770 

780 

790 

800 

81 0 


0690 :rem 36 
IFCT>=PPTHENGOSUB590:PRINT"IL MIO PUNTEGGIO E'"CT:FOR 
1 = 1TOl000 :NEXT:GOTO680 : rem 36 
IFAF=1THENCT=CT-10 :AF = 0 :rem 113 
S=S + 8:D=D+1:GOSUB860:GOSUB910 :GOTO460 :rem 242 
: :rem 211 
IFCT<16ANDA=0THENPRINT"NON BLUFFARE!": FORI = 1T02000: NE 
XT:GOTO330 :rem 246 
IFCT<12ANDA>0THENCT=CT+10 : rem 8 
IFCT=21ANDD = Z + 3ANDPF = 1THENGOSUB590:PRINT"VENTUNO ! ! !" : 
GOSUBl170:F=F+2 :rem 18 
RETURN : rem 125 


rem 18 
rem 125 
rem 216 

PRINT"{HOME}{ 39 SPAZI}" :rem 122 
PRINT"{ 39 SPAZI}" :rem 104 
PRINT"{ 39 SPAZI}{HOME}"; :rem 183 
RETURN : rem 121 
GOSUB590:PRINT"HAI"M"DOLLARI - QUANTO PUNTI":PRINT"(M 
INIMO 10 DOLLARI)"; :rem 138 
INPUTB$:B=VAL(B$):IFB<10ORB>MTHEN670 :rem 198 
RB=RB+B:M=M-B:GOSUB590: RETURN :rem 96 
GOSUB590:PRINT"NON FARE LO STUPIDO!":FORI = lTOl 000 :NEX 


rem 

rem 

rem 

rem 

rem 

rem 


rem 

rem 


rem 


T:GOTO640 


rem 

rem 

rem 


11 7 
21 6 
27 
231 
22 
1 6 
235 


FORI = lT02000:NEXT : rem 27 
GOSUB590:CP=CT:PRINT"IL TUO PUNTEGGIO E'"PP;:rem 231 
IFCP>21THENPRINT"- IO HO SBALLATO":G0T0730 :rem 22 
PRINT"- IL MIO E'"CP, :rem 16 
IFF< = 0ANDCP< 22THEN770 :rem 235 
PRINT" HAI VINTO"RB+RB*(-(F>0))"DOLLARI!!":M=M+RB+RB 

:rem 234 

IFF>0THENM=M+RB:BM=BM-RB :rem 250 
IFCP>21ORF>0THENBM=BM-RB:GOTO790 :rem 19 
PRINT" HO VINTO!!":BM=BM+RB : rem 44 


: rem 

IFF>0THENM=M+RB:BM=BM-RB :rem 250 
IFCP>21ORF>0THENBM=BM-RB:GOTO790 :rem 19 
PRINT" HO VINTO!!":BM=BM+RB : rem 44 
IFM<1OTHENFORI=1T02000:NEXT:PRINT"{CLR}HAI PERSO TUTT 
O!{ 2 GIU'}": GOTO 850 :rem 175 
FORI = 1TO3000:NEXT:GOSUB59 0 :1FBM<10THEN84 0 :rem 53 
GOSUB590:PRINT"POSSIEDI"M"DOLLARI":PRINT"UN'ALTRA MAN 


: rem 


: rem 
: rem 


1 75 
53 


O (S/N) ?" :GOSUBl10 

IFA$="N"THENPRINT"{CLR}": GOTO850 


: rem 
: rem 


21 7 
255 
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820 Z=D+1:IFZ>4 50RF>1ORF<-1THENPRINT"RI";:G0T0210 




: rem 

78 

830 

GOTO 270 

: rem 

109 

840 

PRINT"{CLR}MI HAI SBANCATO!{ 2 GIU'}" 

: rem 

246 

850 

PRINT"CIAO!{GIU'}": END 

: rem 

205 

860 

• 

• 

: rem 

21 6 

870 

POKES, 85 :FORI = lT05:POKES + 1,64 :NEXT:POKES + 6,73 




: rem 

92 

880 

FORI = lT07:S=S+40:POKES,93 :POKES+6,93 :NEXT:S=S+40 




: rem 

242 

890 

POKES,74 :FORI = lT05:POKES + 1,64 :NEXT:POKES + 6,75 




: rem 

94 

900 

S=S-320 : RETURN 

: rem 

88 

91 0 

• 

• 

: rem 

21 2 

920 

IFD%(D)<14THENC = 14-D%(D) :N=83 :GOTO960 

: rem 

74 

930 

IFD%(D)<27THENC=27-D%(D):N=88:GOTO960 

: rem 

88 

940 

IFD%(D)<40THENC=40-D%(D):N=90:GOTO960 

: rem 

72 

950 

C = 53-D% (D):N=65 

: rem 

225 

960 

IFC<> 2THENPOKES+41 ,N:POKES + 2 85,N 

: rem 

21 6 

970 

IFC>3ANDC<11THENPOKES+45,N:POKES+281,N 

:rem 

82 

980 

IFC = 30RC=50RC=70RC=9THENP0KES+1 63,N 

: rem 

219 

990 

I FC = 60RC = 7THENP0KES + 161 ,N:POKES + l65,N 

: rem 

42 

1000 

IFC = 80RC = 90RC=1OTHENPOKES + 121 ,N:POKES + 12 5,N:POKES+20 


1,N:POKES+205,N 

: rem 

179 

1 01 0 

IFC=20RC=1OTHENPOKES+83,N:POKES+243,N 

: rem 

64 

1 020 

IFOl 0ORC = l THENPOKES+202,81 :POKES + 242, 

81 :POKES+24 5,8 


1 

: rem 

1 82 

1030 

IFOl OTHENPOKES + 85,81 

: rem 

19 

1 040 

IFOl 1 THENPOKES + 82,81 

: rem 

1 8 

1 050 

IFC = 1 ORO! 1 THENPOKES+1 22,81 : POKES + 1 62, 

81 :POKES+204,8 


1 

: rem 

1 83 

1 060 

IFC = 1ORC=l1ORC=l 2THENPOKES+1 25,81 :POKES + l 65,81 




: rem 

47 

1070 

IFC = 1ORC = l2THENPOKES + 83,81 :POKES + 84,81 

: rem 

80 

1 080 

IFC=11ORC=l2THENPOKES+243,81 

: rem 

200 

1 090 

IFC = 1ORC=l1THENPOKES+20 5,81 

: rem 

149 

1100 

IFC=1THENPOKES+203,81 

: rem 

8 

mo 

IFC=11THENPOKES+244,81 

: rem 

63 

1120 

IFC=13THENPOKES+124,81:POKES+l63,81 

: rem 

85 

1 1 30 

IFOl 0THENC = 1 0 : PF = 1 

: rem 

1 32 

1140 

CT=CT+C:IFC=1THENA=A+1 

: rem 

99 

1 1 50 

RETURN 

: rem 

1 67 

1 1 60 

FORI = 0TO999 : POKE55296 + 1 ,8 :NEXT:RETURN 

:rem 

146 

1170 

FORI = 1TO20 00 :NEXT: RETURN 

: rem 

95 
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ora in 

abbonamento 


nell’edizione 
per il tuo 


Il primo settimanale di software su carta per il tuo 
personal computer. Un appuntamento al quale non puoi 
mancare ogni venerdì in edicola. 

Nàto, in edizione unica, per i più diffusi home 
e personal computer, dal 4 Aprile, allo 
stesso prezzo, sono in edicola le versioni 
dedicate ai calcolatori Commodore, 

Sinclair e un’edizione esclusiva 
dedicata ai personal Apple, Texas 
TI99/4A e ai sistemi MSX. Puoi anche 
abbonarti dal 4 Aprile al 31 Dicembre 
riceverai così, comodamente a casa con 
un notevole risparmio, 38 numeri del 
settimanale. Chi si abbona riceverà ogni 
15 giorni 2 numeri di PaperSoff in 
anticipo rispetto all'uscita in edicola. 

NON PERDERE QUESTA OCCASIONEI 
Compila subito il coupon sotto riportato 
e spediscilo a: 


J .soft. 

Viale Restelli, 5-20124 Milano 






computer 




Tagliando abbonamento a PAPERSoff da inviare in busta chiusa a: 

J.soft - Viale Restelli. 5 - 20124 MILANO 

□ Abbonamento a 38 numeri di PAPERSoft al prezzo speciale di L. 30.000 anziché L.; 

□ edizione Sinclair (PS01) □ edizione Commodore (PC01) □ edizione ApplefTI99/MSX (PV01) 

□ contanti allegati □ assegno allegato n. 

□ ho versato l’importo sul c.c.p. n. 19445204 intestato a J.soft- MILANO 

* Cognome__ Nome 

I via_—_ Città 

CAP_ Prov.- Data 


Firma 


* 


















